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Featuring the World's Most Powerful 8-Bit MPU -The Motorola MC-6809 



Welcome to a whole new world of microcomputing. 
Here at last is a microcomputer with all the speed and 
power that you have wished for. The MC6809 is an 
exciting new concept in microprocessors thai fills the 
gap between 8- and 16-bit machines. It provides the 
power of 16-bit instructions with the economy of 
8-bit architecture. 

The MC6809 has more addressing modes than any 
other 8 bit processor. It has powerful 16-bit instruc- 
tions, and a highly efficient internal architecture with 
16 bit data paths. It is easily the most powerful, most 
software efficient, and the fastest 8-bit general pur- 
pose microprocessor ever. 

6809 PROGRAMMING MODEL 
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The greatest impact of the Motorola MC6809 
undoubtedly will be software related. Ten pow- 
erful addressing modes with 24 indexing sub- 
modes, 16-bit instructions and the consistent 
instruction set stimulate the use of modern pro- 
gramming techniques. Such as structured pro- 
gramming, position independent code, re- 
entrancy, recursion and multitasking. 

A memory management system with extended 
addressing designed into the bus system controls 
up to 256K bytes of RAM memory. The dyna- 
mic memory allocation system, which is part of 
the multitasking DOS, allocates available 
memory in as small as 4K blocks. 

The MC6809 system is the only 8-bit processor 
designed for the efficient handling of high-level 
languages. New addressing modes, a consistant 
instruction set and easy data manipulation on 
stacks allows the efficient execution of block- 
structured high level code as generated by a 
compiler like PASCAL. 

MP-09 Processor Card S 195.00 

68/09 Computer w/48K $1,500.00 
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TSC 
BASIC 
for 6800 



The fastest floating point BASIC for any micro. 



Move over 6502! Out of the way 8080! The 
fastest floating point BASIC for any micro now runs 
on the 6800. And with the TSC name, you know it's 
top quality. 

TSC BASIC is not only fast, but complete with 
over 50 commands and functions. Features 
include six digit floating point math, full 
transcendental functions, unlimited string 
length, if/then/else construct, logical 
operators.and two-dimensional 
arrays (including string arrays). 



Available now on KCS 
cassette for $39.95. 
Requires 9K minimum, 
no source listing 
included. Soon to 
come is a version for the 
FLEX™ disk operating 
system. 
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Graph based on benchmarks 
listed in October 1977 issue of 
Kilobaud'" mogailne. 
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in advance. 
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(?) SYSTEM 68 by GIMIX 

^■""^ The heavyweight Champ of professional 

quality for the user who demands the best. 



1337 W 37m Purc* * Chicago. Illinot* 60409 
(3l21 927-5510 TWX 9 1 0-221 4055 

CABINET Heavy weight aluminum painted inside 
end out in grey and black baked enamel finish 
-* Punched for 16 D type dele connectors 

4 video connectors and slotted lor ribbon cables 
-^ ventilation grooves pull fresh air over boards tirsl 
**• Sue - 18 wide > 21 deep x 7 high 

GIMIX I.O cards provide the necessary hardware to link your computer to penpherel devices. Serial 

Interlace cards are used with remote terminals, modems. GIMIX Relay Driver Boards, etc Parallel 

Interlace cards ere needed lor keyboards, paper tape, reader punches, cassette interlaces. GIMIX Oplo 

Boards GIMIX Tone Receiver Boards, etc. 

It's Capacious It has Ihe capability to handle 

advanced soltware II has Ihe cepaclly to contain 

large programs 

Soltware Insurance Even In industrial environ- 
ments, when loads such as weldersor compressors 
start up lhal cause lights lo dim or other cornputerslo 
bomb out. the power supply ol the GIMIX system 
keeps running glilch Iree II has power lor ilsell plus 
power to drive your peripherals 

Power Supply designed lo power a fully loaded 
sysiem plus Iwo 5 V * disk drives — and keep running 
a iccnsla nl voltage ou tpu Is even under adverse A C 
power Inpul conditions II consists of A 550 VA 
fenoresonant constant voltage transformer over 16 
pounds ol brule forcecuslom designed lor GIMIX to 
GIMIX' specs an A C resonant capacitor. 3 DC 
lllter capacitors, and GIMIX unique filter assembly 
board lhal sits on top ol Ihe inter capacitors and 
conlams individual luses for eacli output, bleeder 
resislors. and a clamping terminal block for easy 
wiring connections Almost a Ouarler-farad ol D C 
Filtering. Srowrr-oui and ovewoltage insurence 
Supplies 8V al 25 Amps • IS Volts at S Amps end 
-15 volts at 5 Amps from A C Input voltages ranging 
Irom 90 to 1 40 Volls 

-* AC luse holder 

-* Removeabte A C cord 

-• 70 Cf M exhaust Ian 

Holds 2 5*4 disk drives (not included) 

GIMIX disk regulator cards mount on drives - 

and wire to lllter assembly board (optional) 

• Optional tiller plales 
(when no drive is used) 

• 3 position keyswilch 
Oil Power On. Reset Oil Bolh On 

• Reset can be locked out 



If You Have The 
Guts Why Not 
Show Them! 




GKOSTable Feature* The ability ol a board or a 
block ol memory on a board, lo appear, disappear, or 
reappear on Ihe bus This allowsyou 10 have multiple 
memory blocks located al Ihe same address. Using 
Ihe software controllable registers on GIMIX GH- 
OSTable boards, you can enable one block ol 
memory at a time while disabling the olhor blocks 
Ideal lor multi-user and mulli-tasking users 

Mother Board 

Hardware reconligurable (o give you Ihe utmost 
versatility lor use ol various SS SO bus software 
packages Gold plated pins lo insure long lasting 
electrical contact end for protection against corro- 
sion. Filteen SO pm slots plus eight DIP-swIlch 
eddresseble 30 pm IN slots configurable lo 4 ur 8 
decoded addresses The fully bulled I h block is 
addressable by DIP-switch lo any 32 or 64 byte 
boundary and can also be disabled UD1 and UDZot 
Ihe 50 pm bus can be strapped to UD3 and UD4 ol 
Ihe 30 pin bus A fully shielded double sided PC 
board made ol 090 thickness with noise reducing 
ground lines on the bottom side lhal separate ail 
data, address, and signal lines, and a lull ground 
plane on the lap side A 14 poslslion clamping 
terminal block lor all power and other external 
connections Eliminates soldering, crimping or 
forming ol wires. 

VIDEO BASED The ultra high speed output ol 
GIMIX VIDEO boards, instantly display the entire 
written screen, II is limited only lo the entire systems 
soltware limits whereas a term nal limits Ihe user to 
Ihe intelligence ol the terminal itself. Yog can have 
multiple monitors, remote displays, and use several 
video boards in Ihe same system 

See your GHOST Dealer or 

ORDER DIRECTLY 8Y PMONE OR MAIL 



Featuring GMXBUG Our video based ROM monitor 
{installed on Ihe CPU board) contains all the 
standard utility functions found on other MIKBUG 
compatible monitors PLUS advanced debugging 
utility and memory manipulation routines lor easier 
soltware development A video board. GMXBUG e 
parallel keyboard, and a video monitor give you a 
complete video based sysiem Mo terminal Is 
required 

Quality All boards assembled and tested — 100% 
solder masked, using only lop quality components 
designed lor lowest power consumption and coolest 
operation We lake no short cuts lo insure that we 
have the highest quality possible Complete with 
Connectors All necessary instructions and 
documentation included 

Value — GIMIX includes as standard equipment 
features thai ere optional II available al eil on other 
manufacturer's systems Our mamlrame has Ihe 
power supply and space lor your disks, our vid o 
board Is belter than and eliminates a terminal 
Expandibilltyls already there Whenyou add up your 
total sysiem costs, you'll find thai GIMIX gives you 
the most tor your money. 
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Hallmark of 

Reliability! 

SS 50 BUS BOARDS 
16K Systems 

Includes: Mainframe cabinet, 
mother board, power supply, 
fan, CPU, 16K static RAM. 
and choice of I/O card. 

$1294.29 

Other packages available. 

16K Static 
RAM Boards 

Gold Bus connectors — DIP 
switch controllable addressing, 
write protect and enabling of 
each 4K block. Tested at 2 MHz. 
Assembled 

$298.13 

Above but socketed and with 
software control registers 
Assembled 

$368.16 

GIMIX designs, manufacturers and tests. Inhoiee 
tftgtr complete line ol products Complete systems 
are available to tit your needs Please contact the 
lactoty it you have any special requirements 

The Company that delivers. 

Quality Electronic products since 197S. 
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Ready to plug In and run the moment you receive 
It. Nothing else to buy, no extra memory. No 
"booting" with PerCom MINIDOS-PLUSX™, the 
remarkable disk operating system on EPROM. 
Expandable to either two or three drives. 
Outstanding operating, utility and application 
programs. 




fully assembled and tested 
shipping paid 



PERQOM 



PERCOM DATA COMPANY, INC. 

Oept. 68 21 1 N. Kirby Garland, TX 75042 
(214)272-3421 



For Ihe low $599.95 price, you not only get the disk drive, drive power 
supply. SS-50 bus controller/interface card, and MINIDOS-PLUSX". 
you also receive : 

• an attractive metal enclosure • a fully assembled and tested inter- 
connecting cable • a 70-page instruction manual thai Includes operat- 
ing instructions, schematics, service procedures and a complete list- 
ing ot MINIDOS™ • technical memo updates — helpful hints which 
supplement the manual Instructions • a 90-day limited warranty 

SOFTWARE FOR THE LFO-tOO SYSTEM 
Disk operating and file management systems 
INDEX" The most advanced disk operating and file management 
system available for tlie 6800. iNterrupt Driven Executive operating 
system features file-and-device-independenl. queue-buffered 
character stream I/O Linked-file disk architecture, with automatic tile 
creation and allocation for ASCII and binary files, supports sequential 
and semi-random access disk files. Multi-level file name directory 
Includes name, extension, version, protection and dale, Requires 8K 

RAM at SA0OO. Diskette includes numerous utilities $99.95 

MINIDOS- PLUSX "An easy-to-use DOS for Ihe small computing sys- 
tem Supports up to 31 named files. Available on ROM or diskette 

complete with source listing S39.95 

BASIC Interpreters and Compilers 
SUPER BASIC A 10K extended disk BASIC Interpreter for the 6800. 
Faster than SWTP BASIC. Handles data files. Programs may be 

prepared using a text editor described below $49 95 

BASIC BANDAID'"TurnSWTP8K BASIC into a random access data 
file disk BASIC Includes many speed improvements, and program 

disk CHAINIng $17-95 

STRUBAL + " A STRUclured BAsic Language compiler (or the pro- 
fessional programmer. 14-digil floating point, strings, scientific func- 
tions, 2-dlmensionsl arrays. Requires 20K RAM and Linkage Editor 
(see below) Use ol Ihe following text editois to prepare programs. 
Complete with RUN-TIME and FLOATING POINT packages $249.95 

Text Editors and Processors 
EDIT68 Harnenway Associates' powerful disk-based lex I editor. May 
be used to create programs and data files. Supports MACROS which 
perform complex, repetitive editing functions. Permits text files larger 
than available RAM to be created and edited $39 95 

TOUCHUP" Modifies TSCs Text Editor and Text Ptoeessor for Per- 
Com disk operation. ROLL function penults text files larger than 
available RAM to be created and edited. Supplied on diskette com- 
plete with source listing $17.95 

Assemblers 
PerCom 6800 SYMBOLIC ASSEMBLER Specify assembly options 
at time of assembly with this symbolic assembler. Source listing on 

diskette $29.95 

MACRO-RELOCATING ASSEMBLER Hemenway Associates' 
assembler for the programming professional, Generates relocatable 
linking object code. Supports MACROS. Permits conditional 

assembly $7995 

LINKAGE EDITOR — for STRUBAL +'" and the MACRORelocatlng 

assembler $49 95 

CROSS REFERENCE Utility program that produces a cross- 
reference listing of an input source listing file $29.95 

Business Applications 
GENERAL LEDGER SYSTEM Accommodates up to 250 accounts 
Financial Information immediately available — no sorting required 
Audit trail Information permits tracking from GL record data back to 

source document User delines account numbers $199.95 

FULL FUNCTION MAILING LIST 700 addresses perdlsketle Power- 
ful search, sort create and update capability $99 95 

PERCOM FINDER" General purpose information retrieval system 

and data base manager $99.95 

m mxwrwitktfPSflCOM Oti « Company ■ ** 

Ordering Information 
To order, call toll free f-800-52 7-7592 MC and VISA welcome. COD 
orders require 30% deposit plus 5% handling charge. Allow three 
weeks for deliveiy. Allow three extra weeks if payment is by personal 
check. Texas residenls add 5% sales tax. 
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THE CASE FOR SMALL DISK 
OPERATING SYSTEMS 

By Harold Mauvh, president, 
PERCOM DATA COMPANY 

© 1979 PERCOM DATA COMPANY 

"Both the locomotive & the burro carry freight 

but which is the better choice for a narrow 

mountain path?" 

I'm nol against large disk operating systems for small 
computers. In fact, Percom has developed and markets an 
exceptionally powerful DOS called INDEX"". But, if you're 
buying a boat for water skiing, do you really need the Queen 
Mary? The case for the modest disk operating system for the 
small computer user deserves its "day in court." 

Most disk operating systems for small computers have 
been written by programmers whose experience was de- 
veloped on large — in fact, very large — computers. 

Unfoitunately, these selfsame programmers become so 
enamoured by the grandness of large computer operating 
systems that they drift far from the economics and the appli- 
cation realities of the small computer user. 

"Precedence is often substituted for thinking," 

THEDOS was created by the mythical programmer Wong 
Gotu, Senior Lead Systems Programmer in charge of Disk 
Operating Systems. 

THEDOS is all things to all men — er, to all persons. And 
M r. Gotu, having blessed the world of small computer users 
with a system that does everything but wipe your brow, 
cannot understand the frustration of S. Computer User, who, 
having laid out several hundred bucks for THEDOS and 
supporting software, now finds he must dedicate at least one 
drive merely to serve his magnificent operating system. Nor 
can Mr. Gotu (Senior Lead Systems Programmer in charge of 
Disk Operating Systems) comprehend the annoyance of S. 
Computer User when S. learns that he must devote a major 
part of his all-too-limited memory to "clothe" THEDOS. 

After all, Wong asks, did not he provides. Computer User 
with a DOS just like the big computers? 

"Big Computer! I bought a micro to get away from the 
expense and complexity of a Big Computer!" snorts S. 
Computer User. 

"All I want is a machine to keep my books and track my 
inventory. For what do I need a fancy system which can track 
umpteen file names? Let one disk hold the program, another 
hold the books. What could be simpler? I'll just write the 
name on the disk jacket and know exactly what is what." 

So we ask: who besides the large computer user needs a 
complex disk operating system? 

It certainly is not the small businessman. The small cost 
and limited storage capacity of a mini-floppy diskette as well 
as the need for archival backup dictate that seldom will more 
than one applications program or data file be stored on a 
given diskette. Hence, the presence of a complex DOS only 
diminishes the already limited disk and memory resources. 

It ceitainly is not the cost-conscious computer hobbyist. 
Not when he leams he must give up a sizeable chunk of 
memory to THEDOS, and that he needs two or more drives 
because THEDOS demands the constant attention of one 
drive. It is only fair if he~asks for a better way. After all his 
cassette works fine, it's just slow. 

There are owners of microcomputers who have a genuine 
need for powerful disk operating systems, and I'll discuss 
these situations momentarily. First, however, I'd like to 
expand on the case for small operating systems. 

Let's look at what we expect or want from a disk operating 
system: 

Peimit named files 

Provide a directory 

Speed 

Save files from memoiy 



Load files from disk to memory 
Handle free sectors on disk 

Think about it. Do you really need more than this from 
your DOS? 

If 99% of your programming is done in BASIC you want to 
create files you can find and know what else is on the disk. 
Moreover, if your BASIC is an extended disk BASIC it 
already handles most of the features you want from your 
operating system. 

If. on the other hand, most of your programming is with an 
Editor and Text Processor, again you want only to save and 
find your files. 

In cases when high-level languages are used predomi- 
nately, the major function of the DOS is to use up your 
memory! If you have less than 32K bytes of RAM that's 
usually more than one-fourth of it. 

Furthermore, as a DOS gets larger it takes more processor 
time thus slowing down the actual processing of files. This 
can reduce processing speed by a factor of 15 or more. 

You might argue that a small DOS reduces the disk to little 
more than a fast cassette. Is a system that loads a program 
more than five times faster than a complex DOS, supports 
Random Access data files, and uses virtually no memory just 
"little more than a fast cassette"? Hardly. The penalty of 
complexity issloweroperation. If the complex DOSsupports 
random access files it does so at the expense of disk and 
memory space. 

Yes, I've raised an obvious question: How can one imple- 
ment random access data files with a limited DOS? How? 
Simply insist that all blocks in a given file be consecutive and 
contiguous. 

To illustrate random access implementation, consider a 
disk BASIC with the following commands: 

SCTR — returns the number of the 

most recently accessed disk 
block 

RESTORE #F.N.P — positions the specified disk 
file "#F" to the "Nth" 
block of the file beginning 
at element "P" 



For example, to read the 9th element in the 35th block of a 
file callad "DATA" on drive #2: 
10 OPEN #10."2/DATA" 
20 I = SCTR 

30 RESTORE #10.1 + 34.09 
40 READ #I0.A$ 
50 PRINT A$ 
60 CLOSE #10 

SCTR returns the number of the first block of the file. 
Since the disk file blocks are contiguous, the desired offset 
from the beginning of the file is simply added to the value 
relumed by SCTR. 

Now, getting back to the question concerning who needs a 
complex DOS, two types of users come to mind. 

One is the systems programmer. But then the systems 
programmer wrote THEDOS. His view that THEDOS is 
ideal for everyone is narrow and his arguments for a complex 
DOS are usually self serving. 

Like the model railroader, some computer hobbyists like to 
emulate large computing systems. While this is certainly a 
justifiable pursuit for the hobbyist, it does not reflect good 
systems judgement when practical applications for the small 
computer are considered. 

Before I rest my case in defense of the small DOS, think 
about these questions: What use could be made of memory 
space usuiped by a complex DOS? Invert a larger matrix? 
Sort a bigger file? How much more data could you store on 
the disk if the DOS utilities were not there? How much less do 
you pay for a system which requires one less drive? 
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WITH FLEX DRIVERS 
IBM SELECTRIC 
BASED I/O TERMINAL 
WITH ASCII CONVERSION 
INSTALLED $645.00 

• Tape Drives • Cable 

• Cassette Drives • Wire 

• Power Supplies 12V 15 A, 12V25A. 
5V35A Others, • Displays 

• Cabinets • XFMRS • Heat 
Sinks • Printers • Components 

Many other items 
Write for free catalog 
WORLDWIDE ELECT. INC. 
130 Northeastern Blvd. 
Nashua, NH 03060 
Phone orders accepted using VISA 
or MC. Toll Free 1-800-258-1036 
In N.H. 603-889-7661 





for FLEX' users: 
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LOOKUP 




a data manager 




♦ SIMPLE, EASY TO USE 




♦ CREATE, FIND, ADO, LIST, AND DELETE DATA 




RECORDS 




♦ FREE FORM DATA DEFINITION 




♦ FREE FORM DATA INQUIRY 




♦ DATA FILES NAY SE EDITED OR USED FROM BASIC 




♦ RUMS IN MINIMUM SYSTEM 




♦ INCLUDES MINIDISK, FULL INSTRUCTION BOOKLET, 




AND WARRANTY 




* COMPLETE WITH FREE INDEX TO ALL 6800 ARTICLES 




FOR INQUIRY FROM DISK 




LOOKUP MOF - m OB, a 




MVCROFTWARE SYSTEMS 




P. O BOX 113B 




8T. CHARLES MO. S33D1 


^ 
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• Record and playback at 120, 
60 or 30 self- clocking bytes per 
second (extended Kansas City 
Standard) 

• 1200, 600 or 300 baud data 
terminal interface 

• Quel cassette operation 

• Compatible with SWTPC cat- 
sette software 

• Optional kit permits program 
control of cassettes 

• Optional adaptor permits inter- 
facing with any computer 



Upgrade your SWTPC 6800 system to 1200 baud with 
PerCom's CIS-30 + dual-cassette/terminal interface 



The CIS-30+ . . . four times as fast as SWTPC's AC-30 with the same dual- 
cassette capability . . . plus a 1200-baud data terminal interface ... in a SWTPC 
color-compatible package that's only 1 110 the size of the AC-30. 

Dependable? The simplicity of Harold Mauch PerCom Oata designs says more 
than any well-chosen words. Simply put, for only $79.95* you get the fastest, most 
dependable dual function interface you can buy for your SWTPC 6800. 

To order or request literature call Percom loll-free 1-800-527-1592. 

Per Com 'peripherals for personal compu ting ' 



PEFQCM 



PERCOM DATA COMPANY. INC. 
OEPT ee 
111 N KIRBY . GARLAND. TX 7604? 
(2MJ 272-34?1 

'Kit pnca. Assort**) and taslad 
$99 95 +• shipping Ts«. I at add 
S% lax. BAC A MC available 
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INNOVATIVE PRODUCTS 

DESIGNED WITH THE 
6800 USER IN MIND! 
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[Need a custom interface? Be it (or industrial use or a home-brew project, the Universal I/O Board can handle it. The UIO has 
Ispace for a 40-pin wire wrap socket for any Motorola 40 or 24-pin interface chip. All data and control lines are connected to 
lthe appropriate edge connector pins. Other bus connections are brought out to a 16-pin socket pad. A + 5 volt regulator and 
■all Mole* connectors are provided; regulated 4- 5 and ground are bused among the locations for up to 35 14-pin ICs. $24.95 

Lust to demonstrate how useful a tool the UIO can be, we have Included a picture of the first UIO prototype of our popular 
1D&68 Oigisector — wirewrapped complete with analog to-digital circuitry and all logic. 

■The Innovative Dlglsectot* enables your 6800, via an inexpensive TV camera, to see. Occupying one I/O slot In the 6600, it 
■accepts either interlaced (NTSC) or non-interlaced (industrial) video sync pulses from the video source. It features 256 x 
1256 pixel resolution, with up to 64 levels of grey scale. Applications include precision security systems, moving target 
■Indicators, computer portraiture and fast to slow scan conversion for ham radio operators. With clever software, the DS-68 
lean read paper tape, punched cards, strip charts, bar codes, UPC codes, schematics and musical scores. This device was 
■the first random access video digitizer produced for 6800 users at an unbeatable price. $169.95 

iTIte Micro Works 6600 series of high quality computer accessories includes: 

lpSB-08 PROM System Board — with 1K on board RAM, space lore DIP-swltch addressable 2708 EPROMs. Relocate the I/O portion of 
■memory and expand to 56K of contiguous RAM! $119.95 

Ib 08 EPROM Programmer — generates all programming voltages on board. Programs 2708s to full manufacturer specifications, and has an 
■additional exclusive feature of extended board height for your convenience. U2708 Utility In ROM tests, burns, verifies and copies EPROMs 
■quickly and easily. BOB: $99.95; U2708 Utility: S29.95 

Ix-SO and X-30 Extender Boards — Include a ground plane and ground lest point, providing noise immunity and troubleshooting efficiency 
■with sllkscreened bus pin designations. $2S.96/$22.95 

[DM 85 Disk Mixer — available In kit form, this accessory allows any combination of 6" and 5" drives tor the Smoke Signal Broadcasting 
IbFO«8A. No software modifications necessary. $39.95 

IE6809 — Our latest software package emulates the Motorola 6809, allowing the user to lest and debug 6609 software before the chip Is on 
■the market! Utilizes 3K of memory; speclly Smoke Signal Broadcasting, Flex™ or cassette. $49.95 

■All Micro Works products (with the exception of the OM-85) come fully assembled, tested and burned In as necessary. They feature prime 
■components, double-sided PC boards with plated through holes, solder mask and silkscreen component markings where appropriate. Alt 
■software Is fully source listed and commented; complete schematic diagrams are Included. 
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EDITORS REMARKS 



An old joke ended 'promises, promises, 
promises'. How many times have you heard 
it repeated? Seems lately it is more 
apropos than ever. Of all of the 
complaints received and heard, slow 
delivery is the most referred to. Some 
firms are more notorious than others. 
Fact is; some seem to start and continue 
on cash in advance orders, from eager 
micro owners. Federal regulations to the 
contrary, it seems more prevalent in the 
microcomputer industry, than any other, I 
know of. I personally know of 
manufacturers who are running slow on 
deliveries, despite anything they could 
do. Others just don't seem to care. 
Already the ranks are being pruned of poor 
products and vendors. Yet it seems for 
every one that fades away, three others 
spring up. By the time many of us find 
out about a shoddy product or company, it 
is too late for many others, or ourselves. 
It is difficult to sometimes tell who are 
the good guys. And in a couple instances 
the bad guys have reverted to a good guy 
role. Hovever, it requires time to change 
a black hat to white. Better to have 
started out a good guy. 

There is another side to the coin. 
Sometimes the buyer just is not reasonably 
patient. Note, I said 'reasonably'. We 
had an instance of a subscriber sending 
his check to us on the 14th or 15th of 
January (we received it on the 22d of 
January). Less than three weeks later we 
received a note, sprinkled with filth and 
profanity, demanding his magazine or money 
back. Three weeks with mail delivery time 
included, is not reasonable time. We 
promptly refunded his check but the fact 
remains that in his eyes, we are the bad 
guys. All this despite the fact that we 
included every subscription received in 
the first mailing, up to the final 24 
hours. Most magazines warn that it takes 
six to eight weeks, at the earliest, to 
process a new subscription. We know how 
hard we all worked to get everyone 
included, but if others don't, then we get 
a black eye, deserved or not. We came out 
a month later than we had intended. We 
could have been on time but the first 
issue would have been printed on 
newsprint. We wanted to do better, so we 
reordered paper (correctly ordered the 



first time), and humped to get out within 
5 working days after receiving the right 
paper. 

This brings us to a point worth 
considering. If you feel that you have 
been overly delayed, or received poor 
merchandise from a 6800 dealer, let us 
know. Maybe we can help. This can 
sometimes save us all a lot of grief. 

Already we have refused advertising 
from dealers we feel wear grey or black 
hats. This hurts; we need advertisers to 
continue to grow. More important we need 
readers. If we don't do our part to keep 
the game clean, then we don't deserve your 
support. I have a big stake in this 
publication. Our publishing house is over 
66 years old. We hate striking out. It 
is our sincere belief that 6800 users and 
6800 dealers need their own publication. 
However; we can only do so much, the rest 
is up to you. 

If we all focus on a standard protocol 
for our particular corner of the 
microcomputer field, then we will succeed, 
where others failed. Many of the 
'biggies' of the early days are gone. 
Some others will follow. All because they 
bickered and squabbled about busses and 
standards; until there were none. 

So it all boils down to this. As users 
we need to share our knowledge and 
advancements with others less skilled (we 
all started on base one somtime or 
another). If you have a program or 
hardware project, let us all know. You 
will get your subscription extented and a 
lot of other folks will be grateful, not 
to mention it will make you an 
internationally known author. 

A few words to hardware and software 
manufacturers also; please lets keep order 
among the 6800 products to come. 
Competition is one thing, suicide another. 
Surely the mistakes of some who have 
fallen, should not be repeated, in the 
name of competition. One of the strongest 
things going for 6800 user acceptance is 
compatability. If a fair and reasonable 
bus and signal protocol is agreed to by 
you who make the things we buy, hardware 
and software alike, there will be plenty 
for all. Screw it all up; kiss it all 
goodby. Price has never been the deciding 
factor for most. providing it is 
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reasonable... dependable operation and 

compatablllty have. With the 6809 and 

other new products coming, NOW Is the time 
for decisions. Any comments, anyone? 



CRUNCHERS CORNER 

This monthly column Is Intended to provide a place for the 
exchange of ideas on microcomputer arithmetic. A systematic 
exposition of fixed and floating point arithmetic, hardware and 
software, algorithms for approximation and so on Is planned. 
Questions and comments submitted to this column can be on any 
subjact relevant to "number crunching," and should be addressed 
to: 

Jack Bryant 

Depaitment of Mathematics 
Texas A&M University 
College Station, Texas 77B43 

We ask that all coirespondente supply their names and addresses. 
an integer arithmetic package 

Earlier in this column we discussed some of the difficulties which 90 
with using 1 microcomputer t0 10 i rt rea | MO rld problems. The central 
difficulty Is the data width (that Is, the nunfcer of bits in the data bus). 
The processor we are using a* an example has 6 bit data. Since this only 
gives 256 distinct data values, we Imiilenent in software (that is, in a 
prcgnra) wider data types. ue selected 16 bit integer arlthnetic to start 
with; this system is simple but is also useful. Using the Instructions AIC 
and SBC of the H680O Instruction set, we easily programmed 16 bit addition 
and subtraction, We also considered the conversion fro* ASCII sln.n-«uQn1tude 
.decimal notation to 16 bit two's co«pl*«erit binary, and found that this 
could be done efficiently with a special purpose multiply hy 10 program. 
[Efficiency is especially critical in an interpretative progra* such as 
BASIC which i*st perform the conversion each tine a line is executed.) 

In this month's column we Introduce new operations multiplication and 
division. We also lUe 1 Program which curforars conversion from 16 bit binary 
to ASCII sUm-wgnlt jd* 1 decimal. These more cortex op*ratlo<»s make use of 
the 1*600 shift operations ASK. ROA, ASL and R0l. The resulting sot of 
program is adequate to support Arithmetic operations needed for indexing 
(th.it Is, for finding elements in vectors or arrays). Also, some versions 
of BASIC (such as the famous Tlftf BASIC of Tom Plttman) use exactly this 
data type everywhere. A unified set of programs meant to be used by other 
program Is sometimes called a package; this month's column contains 
comprehensive IS bit integer arithmetic Packaee. 

Aefore we begin to discuss details of the programs, we need to clarify 
4 loose end from list time; It Is the problem of overflow. 

NODULAR ARITHMETIC 

Last time we pointed out that arithmetic using two's complement or 
unsigned representations of binary nunbers needs the same action by the 
internal arUha*Ut-lcg1c unit In tfcejcoftputer. Consider once (nor* 4 bit 
data; there are 2 * 16 possible values, Indicated In Table 1. Also shown 
there are other Integers. For example, the integer 30 1s listed with the 
bit pattern nained 14 Us an unsigned integer) or -2 fas a two's complement 
Integer). Looking at the table, we see that the difference between a pair 
of elencnts in the same row Is a multiple of 16. and that the elements In- 
crease by 1 each time going down columns. Before continuing, U Is Instruc- 



tive to try to answer: what shnuld 5x6 be In this 4 bit system as an unsigned 
Integer and as two's cocplepent inteoer? 

Overflow In addition Is much less frequent than In multiplication, and 
for that reason we have postponed this discussion until now. Let n be on 
Integer (such es 16) end let jnd b be integers. Wc say a is 
congruent to t> modulo n provided a-b (s a multiple of n . This will 
certainly be the case if a * b , hut wil 1 also be true If a • b » n . 
A-b-n , a • b » 2n and so on. this property (being congruent modulo 
n) has enough of the ^ tributes of equality so that we sometimes write ■■■ 
Instead of "congiMeri t to , . ■ aodulo ft". Taking this liberty, we see that 
In the four bit systm 5x6 - 14 (unsigned) and 5x6 " -2 (two's complement). 
This Is because 30. 14 and -Z are all congruent modulo 16. 



Table 1 



Four Bit Binary Integers 



0000 


-16 





16 


32 


0001 


-15 


1 


17 


33 


0010 


-14 


2 


18 


34 


0011 


-13 


3 


19 


35 


0100 


-12 


4 


20 


36 


0101 


-11 


5 


21 


37 


0110 


-10 


6 


22 


38 


0111 


- 9 


7 


23 


39 


1000 


- 8 


8 


24 


40 


1001 


- 7 


9 


25 


41 


1010 


- 6 


10 


26 


42 


1011 


- 5 


11 


27 


43 


1100 


- 4 


12 


28 


44 


1101 


- 3 


13 


29 


45 


1110 


- 2 


14 


30 


46 


nn 


- 1 


15 


31 


47 



Computations with n fall Inte^rs such as addition and iM tl plication 
are carried out modulo Z n . For n • 16 , this is 2 ,fi 65535 . While 
655X Is * lot larger than 256. it Is very likely that i»ny multiplication 
operations will overflow. For example, the 16 bit product 1?B x 51? 
Is equal (congruent) 10 (eadvlp 6iS3u)l Thus tier* are roii-zero numbers 
which divide f); thlv may take some qettlnq used to. The important thinn to 
rcflwiubci* new 1s that these overflows are a result of a fixed data width and 
art* Inescoiiable. None of the programs In the patktqc give an alarm when 
this bind of overflow has occurred, 

KJUiriluAUOrt 

Consider again four bit Integers. In fiq. I we sho* three four bit 
multiplications, exactly like nullifl fc-itfon of decimal numbers Is carried 
out by hand. He show the unsigned and two's complement names for the 
multiplier and multiplicand, and the standard decieol name for the product. 
flollcc that the decimal product In each .ase is conlrueot to the rightmost 
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Tour bin or thp btnory product modulo 16. It \: this wlhod uhlch Ho 
deverou Into an algorithm for perromlnn 16 btt Integer Multiplication In 
Flow Curt 1. 

raw corresponding girourw to Krleaent this algorttnn Is named Hll 
in Ustlnn, I. It mplecs th* contents or I by I tines M. and In the Proem 
destroy* H The lipfeK register K used as a counter since both accwvlaton 
are used t<> uulld the product. Th* shift operations «W, not. not Ml are 
usoj to test bits or M and to position the contents or I corrwtly for 
adding to the partial product (II needed) at the next stage. About &$rt 
cycles art required for one nuHlpllratlm. 



f ENTRY : A 
V MUL. J 



CLERR 
PRODUCT 



CLERR 

COUNTER 



I 



5HIFT MULTIPLIER RIGHT 



_QHL 




JJUT 



ROD MULTIPLICAND 
TO PRODUCT 



I 



SHIFT MULTIPLICAND LEFT 

— r~ 



COUNT ONE 



^ NOT Y£T 4 




STORE PRODUCT 
IN Cl/If I ) 



(exit) 



12 12 



0011 

aim 

0000 
MOO 

ooii 



ami iw 



1000 
10O0 

OOOO 

oooo 

0000 
1000 

1 



H 


• 2 


1110 


7 


7 


0111 


M 


-It 


1110 

mo 
mo 
oooo 



fig. I, Three Multiplications or four Bit ttoilgned 
Olnary fritters. Note that the rlgSt-mcit 
four bill of the antwer \\ correct uodulD 
16, 







Euaple »: 7/2 




ramie b: 5/3 






divisor dividend 




divisor dividend 






oologooo 00000111 




00110000 000O0101 


1 


Shift divisor 


00010000 




00011000 




Subtract and test 


negative 





negative 


2. 


Shift divisor 


00001000 




00001 100 




Subtract and test 


negative 


00 


negative 00 


3 


SJllft divisor 


oooooioo 




000001 10 




Subtract and test 


positive; 00000011 


001 


negative 000 


a. 


Shift divisor 


00000010 




00000011 




Subtract and test 


positive: OOOOOoai 


Mil 


positive: DOOCOSIO 0001 






reminder q 


uotlent 

J 


remainder quotient 
2 1 



Fig. 2. lw Tour B1I Divisions With Reeialnder 



/"ENTSYi"\ 



ST nut 


PI IN 


LEFT (I 


■ ITS 


or 3i 


■ IT 


1 V 1 SIM 


5HIFT 


REGISTER 


» 



| COUNT -8 | 

IE 



SHIFT HV150S 

HI BUT UNTIL UWTR 

IB BITS IRE FILL 

ZERO' COUNT I HI 

ERCH SHIFT 




.[.< '-5H FT 

I !NTC 

BUOTIENT 



HCPLfKE DIVIDEND 
■T THE DIFFERENCE 
AMD LEFT -SHI ft I 

INTO 1UPTIEHT 



f ENTHT : ^ 
L NE11 J 

ST- 



REPLBCE 



/"ENTRY: *\ 



INT 



(exit) 



3T 

(kTt) 



OIVISHM 



Replace 



(q^j 



Although there Is « sense In which division ts the inverse operation 
to multiplication, it Is easy to see that the probleas Involved are quite 
different. In ■ultlplicatlnn. the principle Probl*» Is the product often 
overflows. This Is solved using nodular artthnrtlc. In division, the problem 
Is the division cannot be parforwtd exactly. That Is. the divisor does not 
"go into- the dividend. This problem Is handled using a rcnainder. Let 
a and b be Integers Kith a not equal to zero. In division, we wish to 
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writ* b ■ q • * » r where q is the quotient b/o and r Is the 
rewlndor. In sign-magnitude representation, the Sign of the qitf>t1ent Is 
negative vihifn o anil b have opposite signs, the si9n of r Is equal tv 
tho sign 41 b , .md the magnitude [rf of r sitlsflos < |r| Ui . 
Those conditions uniquely determine q and r , In binary, the division 
atgorithw given here requires a a*»d b to bo non-neo*tWe and builds the 
quotient one Ml at a tfne. reducing the dividend by the shifted divisor 
each tln» a 'one' bit Is shifted Into the quotient. 

In fig. ?, vie trace tho stops Involved on two four-bit problems; 
7/? and 5/3. Initially, we place the divisor In the left four bits of an 
3 bit register A. The dividend is placed In the right four bits of an ft 
bit register* B. lhe first step is j right shtrt of the divisor register A. 
Then A 1s subtracted from B; if the result 1s negative, Is shifted into 
the quotient; otherwise 1 Is shifted Into the quotient and 8 Is replaced by 
the difference. Then A IS shifted right and the process Is repeated. This 
process Is shown In a»fe detail 1n FTcw Chart 2, 

This algorithm doe* not work correctly far negative two's complement 
numbers- Accordingly, the dividend and divisor 4rc made positive and the 
sign of quotient and remainder calculated, Tho program RfcMl In Listing I 
ends with the quotient f/H In H and the remainder tn 1 . Prograa 
OtVl ends with the quotient In I and reminder In H (and In M * 2). 

A programming note on the Implementation of Flow Chart 2: For 16 
bit division with remainder, the extended divisor and dividend register 
contain. 32 bits. Kpwver, any tin* the left 1€ bits of the divisor register 
is noii-zoro, the subtraction would mull in * negative difference. 
Accordingly, the subtraction need not actually be carried out until the 
divisor has been shifted far enough right. This also saves left-shifting 
the quotient (since *oro wuld be shifted In], Also, once the 1eft-TO*t 
16 bits ai-e *ero, they need not actually be subtracted. The slight Increase 
tn program co«*lex1ty results In a division program rare than twice as fait. 
About 900 cycles are requited for a typical division. 

8INMY TO ASCII 

The final proole* *e discuss this month Is the conversion from 16 
bit two's eo>i«Urcertt numbers to ASCII slgn-augo! tude decimal. Recall bow 
base conversions go for positive nurders: to convert a nunber n to 
doc 1 nit, we *oy write n « 10 * m ♦ r , where ft < r < 10 , The dioit r 
Is the least significant digit In the decimal representation of n . 
Repeating this process with a replacln? n gives the next least signi- 
ficant digit and so on until the quotient la becomes zero. The dibits 
(In ASCII) are easily generated fron their 8 bit binary values by adding 

S30. This process IS shown In Flow Chart 3, and praqramnod 1n Proqram 
OUTI of Listing 1. One minor pivble* Is that the digits ara generated 1n 

reverse oder (I.e., the least significant digit 1s generated first). This 

1s handled by storing the ASCII number In a biffer to be read out later. 

Since the result of a conversion Is usually printed or displayed on a 

relatively slow t 10 device, the execution time for OUTt 1s unimportant. 

THE INTEGER ARITHMETIC PACKAGE 



f ENTRY* > 



NEEfrnYEg 



SET 

FLRE 



MRKE REM 
POSITIVE 

— szz 




PDS DR ZERO 



CLERR 
COUNT 



i 



DIVIDE 

! BY 10 




REMF, ! NDEf 

PD5 I ■'. 



(exit) 



CONVERT 

REMfl 1 NDER 

TD P.5CI I 



MOVE 

QUOTIENT 

TD I 



STORE IN 
BUFFER 



DECREMENT 

BUFFER 

PD I NTER 



COUNT ONE 




t NOT ZERO 



5TDRE 
R5CI I 
MINUS 



DECREMENT 

POINTER AND 

COUNT ONE 



(exit) 



The program In Listing 1 Is Intended to Illustrate each of the principle 
arithmetic operations on 16 bit integers. There art three main parts: the 
test progrei and Us «1n subroutine BANG which calls the appropriate opera- 
tion, the Input/output (1/0) subroutines INPUT and OUTPUT which oove strings 
from the console to mmry and back, and the arithmetic operation program 
thofcelves. In Table 2. each arithmetic subroutine In the package proper 
Is briefly described. The entire package requires under 409 bytes. About 
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I7S addition** bytes are needed to provide tht tut prograa and I/O; these 
test and I/O routines art only aeant to be exaaples of what can b« done 
(and. of course, serve to last tha various routines). 

Several raaarks on tha philosophy of these program art in ordar. A? 
aentloned In last Month's coluan, certain underlying programing conventions 
havt been followed, thus tht current value of Index register and accuaulator 
Is not changed by any of these program (unless, as is the cast for UAOI and 
OUTI. tht change Is expected and doeoaanted). Each prograa tolerates Interrupts 
(providing the Interrupting prograa ftoet not codify the thirteen page zero 
locations beginning with IF}). Also, each prograa Mill execute in read only 
tenor/ (although they would obviously be asseabled at a different address 
In apst system), finally, each prograa should be at accurate as It Is 



CENTflY ■ \ 
!BJ J 



CLEAN: 

NC6 REM I L'ili 

NEE OLD FLAfi 






(BO TO USER \ 
ERHQH BOUT INC ] 
WITH HCCB-1 J 



CrVL 
HCil 

I" 



"pds .;u :tsa 



SET NUT 
SET NST 

\ 



Up 




fa ■ «■" 



TEST 1 >ePEBBXH6 1 . 
'PDS OR 



m ZERO 



e ^ 



CALL 
•VI V 

■ ^jT i 

«-5" «r<g^> 

Ic-IlII YCLCR*' 

[ NCBH I 



mm h im e] 
31 




CALL 
WEB I 



HtS 

CLEW 



possible to be. (Far Integer arithmetic, this aeans each prograa ant be 
perfect.) ttven these conventions, the principle goal m to alnlaUe 
execution tie* (flrit) and «o alelalie aemry rooul re tents (seeend). 

A good uaaplt of the execution tie* in. aaxory problta is the Integer 
division prograa to lilting 1. The algorltha chosen was the fastttt known 
for positive operands: hoxever. It fells for *a*et1ve nueten. and. since 
-mt» Is Its own two's coaplnwint negative. loaatMng Bust be done to aceo- 
nodata this exceptional condition. (The accuracy convention: tech prograa 
auit be as accurate as it cen be.) Thera art three exceptional casts: 
tht negative division overflow, tht negative dividend overflows, or both. 
Prograa UMl Is coaplicattd because tht progree RDIY to perfora division 
1s fast and altale. All this logic taxes about 80 bytes, although thele 
Instructions art rartly executed. 



next aonth we give exaaples of usage of the progress In tht Integer 
trlthattlc package. Also, alternate atthods of coding the progress are 
discussed. 



IMT16** aaiiHutTK pac*ase v i.n 



*jj micro jouawm. 



E07E 

E1AC 
E101 



OOP] 
OOF I 
OOF? 

n«*a 
OOF 5 
OOFS 
OOFD 

onFF 



AUMft) EOURTES 

HATAI Feu IE07F tLOCh OUTPUT 
neee FOU tEiac input Otuf ch(»ac ter 
OUTEEE ECU tElbl CHARACTER OUTPUT POJTIHE 

POSE TIRO CONSTANTS 



TEMP 

NPUF 

NEGFL6 



4TEHP 
GNPEN 



OR6 

RNR 
RMP 
PHP. 
PHP 

•up 
rhp 

Put 



*FI 

1 

2 

1 

* 
i 
I 

I 



TEMPORARY ACCUMULATOR ST3PE 

INPUT SUFFER SE6IKMIM6 

NEGATIVE INPUT FLAS 

N SOFTWARE ACCUMULATOR 

I SOFTWARE ACCUMULATOR 

TENPOPAPV rTOPRSE FOP INDEX REGISTER 

INTEGER DIVISION LOCAL 



INDEXFP RFSISTFP RCCsESSED STDSftSE ON PAGE | 
ORG 10*00 TEST ROUTINE STARTS HERE 

TEST PROGRAM FOP INTEGER ARITHMETIC PACKAGE 

vers tort e.o 



0200 


SO 


3A 




0202 


BIi 


OE 




0*04 


DE 


F2 




02 06 


up 


)f 




02 OS 


CE 


ftl 


FF 


9201 


DO 


04 


OF 


0£0t 


»D 


23 




0210 


20 


FC 





START WITH A HEU LIME. 
SET rplHPEP AHll CREPATOP STRING 



PERFORM OPERATIONS 



PSR CRIF 

i?» (MPUT 

LUX INBUF 

tiK FANG 

I !■ RUFF 

J'R OUTI 

ISP OUTP T PRINT THE RESULT. 

PRA TEST DO IT ACAIN 

INPUT SUBROUTINE 

SUBROUTINE TD TA«F A 5.TRINR F*ON THE CONSOLE 
AMU STORE IN INPUT PUFFER. 



0212 OF PD 




INPUT 


STX XTEHP 


SAVE INDEX PE6ISTEP 


MH J7 






PtM > 


SAVE ACCt 


WIS 3F 






CLP S 


SET COUNTER 


021* Ct 01 


no 




lox »»i no 


INPUT BUFFER STARTS AT llOO 


<s»lt » ft 






STX I NPUF 




0211 IB fl 


(tr 


INEXT 


JSP INTEE 


S£ T A OMRAC TER 


w IE nr no 




ISTASX 


STA A n.K 


STORE IT 


0220 08 






I«X 




0221 SC 






I1C » 


BUMP COUNTER 


0222 2P Ofl 






•vS IFU.I 


PUFFER SIZE • 127 


0224 ei 00 






CNP A ntD 


CR' 


NTEGEP ARITNNET 


If PACKAGE" V 2.0 


*8 MICRO J0JCT-4L 


022« 66 F3 






kNf INEXT 


nopf; 


0*20 «D 12 






ISP) CPLF 


neu Lire. 


(W2A BE F( 






LOX XTENP 


RESTORE INDEX REGISTER 


022C 13 






PUL II 


RESTORE ACCI 


nitt 3> 






PTt 




022E 0* 




IFUtL 


MX 


PUFFER FULL! GENERATE CR, 


022F 06 OP 






LOA A BSD 




02)1 20 EB 






IRA ISTASM 





OUTPUT SUBROUTINE 

THIS SUBROUTINE PRINTS A STRING 
POINTED TO IT THE IHPEX REGISTER 
PLUS 1 UITH ACCB CONTAINING THE 
COUNT OF THE NUMBER OF CHARACTERS 
RPIHTFP. ACCP IS ZERO ON EXIT. 
AND THE INDEX REGISTER IS LEFT 
POINTING TO THE LAST POINTED. 



0233 OS 

0234 A* 00 
023b 10 El p| 
023» M 

WJA 2( FP 
MX OF FD 
023C CE 04 40 
0241 ID El 71 
0244 DE FD 
0244 » 



output trot 



CPXF 



POINT TO THE NEXT ONE. 



02*7 37 
024* H 37 



LOR A 


0.x 




JSP 


OUTEEE 


PRIHT 


DEC t 




COUNT 


ere 


OUTPUT 




STX 


XTCMP 




LBX 


■CPLFD 




JSP 


PDrtTAI 




LDX 


XTIHP 




RTS 






suprojt irtr Pawn} 



THIS SUOROUTIHE TAKES THE STPIhvJ IN THE INPUT 
BUFFER AND LOCATrS THE OPERATORS AMD CONSTANTS 
AMD tRLLS T>* R*f>»OR»|ATE ROUTIhSf TO APFtr THE 
OPERATION. THE* ARE APPLIES LEFT-T0-RI6HT 
AS ErSfAJrlTERED. 

OPERATIONS SO FAR! 



R 
A 
N 

PSN 
1SR 



ADOITIONl 1 

SUPTHACT10N1 I 
MiXTIPLICATIDnll 
DIVIStOMl 1 

PEMAINDERI I 

AISOLUTE VALUEI 
UN1ART NEGATICRII 



f «- I • M 

i- i f n 

14 REMAINDER | n DIVISION I'M 
I la AlSO 
I l- -I 



READ I CONVERT ONE NUTTIER 



12 
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Table 2. Arithmetic and Conversion Subroutines 



o 
3 

c 
3 



Name 


Entry Point 


Purpose 


Length (bytes) 


Time (cycles) 


Remarks 


Binary Operations 








ADDI 


$02E4 


I:=I+M 


13 


25 




SUB I 


$02F1 


I:=I-M 


13 


25 




MULI 


$02FE 


I:-I*M 


37 


608 to 704 


H becomes undefined 


DIVI 


$0340 


I:=I/H 
M:=REHAINDER 


19 


about 900 


Calls REMI 

Entry point SWAPIM 


REMI 


$0353 


I:=REMAINDER 
M:=I/M 


187 


about 850 


Calls NEGI, NEGM 
Length includes RDIV 


Interchange Operation 










SWAPIH 


$0342 


Interchange 
I and M 


17 


41 




Unary Operations 










ABSI 


$032F 


I: = UI 


5 


12 to 27 


Calls NEGIEN 


NEGI 


$0334 


I:=-I 


12 


24 to 26 


Entry point NEGIEN 


Conversion 


Operations 










READ I 


S02A1 


M:=binary 


67 


70x(l+# of digits) 


Entry: index register 



OUT I 



$040E 



Output value of 
I in decimal 



57 



to start of string. 
Exit: index register points 
to non digit, no. in M. 
I is not changed. 

1000x(# of digits) Calls REMI 

Entry: index register points 
to end of at least 6 
byte buffer. 

Exit: index register plus 

one points to start of 
ASCII string. ACCB 
contains count of no. 
of bytes (including 
leading minus sign for 
a negative number). 



INTEGER ARITHMETIC PACKB6E V 2. 



'6B MICPO JOURNAL 



SUBROUTINE SUB1 



0249 


96 


FS 






LOB 


fl 


n 


SAVE THE 


24C 


*7 


F» 






STB 


B 


I 


FIRST DUE 


024E 


96 


F6 






LDB 


B 


r*i 


IN 1 


O2S0 


97 


FC 






STB 


B 


i»i 


TOO. 


0252 


et 


00 




BBNSN 


LBA 


B 


4.x 


LOBS THE DPEPATGR 


• 274 


oe 








■ NX 






PniMT TO NEXT OPEPftNJ 


0255 


ei 


SO 






cup 


B 


«»20 




0257 


2D 


46 






l>LT 




OVER 


SEE IF A CONTROL CHA» 


0259 


sr 


4* 






BSP 




PEBD1 


GET THE NEXT ORFRBHD 


n? SB 


CI 


21 






cmp 


B 


"12 IP 




, ,; -.n 


2* 


M 






ONE 




SUBD 




«25F 


ID 


l» 


IN 




J5P 




ADDI 


ADD 


, ,; i.; 


£0 


n 






BRB 




bhmSH 




0264 


CI 


.»[! 




SUBO 


CMP 


t 


t>*21) 




MM 


M 


OS 






BNE 




IWUO 




0264 


Hi 


M 


PI 




J5B 




SUM 


SUBTRACT 


'/■■[ 


2(1 


n 






HFn 




bamgn 


BO IT AGAIN 


0260 


CI 


i« 




MM 


(» 


B 


»»2A 




ilet.F 


.=* 


M 






11 ME 




D1VD 




0271 


u. 


H 


«* 




JSP 




rt'iul 


MULTIPLY 


0274 


20 


M 






BRfl 




BflNSN 




0276 


i i 


-F 




OIVO 


(W 


II 


»»2F 




02 7t 


f* 


OS 






Ike 




PENH 




027(4 


SI' 





40 




JSp 




DIVI 


DIVIDE 


027D 


20 


03 






BPB 




BANGN 




027F 


CI 


Si 




PEN* 


<■*> 


B 


n*S? 




0281 


M 


05 






BNE 




bb;o 




02s; 


BI> 


N 


s ■■ 




JSP 




REMI 


PENA INKER 


iiE** 


^ ii 


CA 






IPfl 




BANGN 




oeaa 


CI 


41 




BBSS 


ci* 


B 


0*4 1 




(12 SB 


. : > 


M 






BN£ 




NFGO 




02 3C 


Hi 


<i; 


tf 




JSP 




ABSI 


ABSOLUTE VALUE. 


(12BF 


s-ii 


CI 






IP* 




BANiJN 




0291 


CI 


4F 




NEG9 


cw> 


> 


■ »4E 




029* 


, ; l- 


OS 






BNE 




EPPOP 




029? 


■D 


M 


34 




JSP 




NE6I 


MFGATIvE OF 1 


0298 


to 


» : 






BRa 




BANGN 




029A 


M 


3F 




EPPDP 


LDB 


B 


n*3F 


LORD BN EPPOP FLAG. 


02 9C 


IS 


II 


Di 




JSP 




OUTEEE 


PRINT IT 


029F 


3i 






OVER 


PUL 


B 




PES TOPE ACS 


o^nn 


39 








PTS 









PEBD JUBFLll.IT IHE 



EtITEP H I TH INDEX REGISTEP POINTING TO STRING 
TO BE CONVERTED TO 16 III BINBPV. 



Exit uith index pegistep pointing to next hon 
.0-91 op lebding minus sis bnd 1,1 1 th number in 



INTEGER SPITHHETIC PACKAGE «> 2.0 
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05BI 


37 




PEBDI 


prH 


B 




5BVE B CB 


02 A2 


5F 






CLP 


B 




CLEBP BCCL«ULBTDP 


02Bj 


37 






P5H 


B 






02A4 


D7 


F4 




STB 


B 


NFGFLG 


ClEflP NEGBT1VE FLAG 


D2A6 


«Ii 


0(1 




LDri 


fl 


O.X 


GET BIGIT^SIGII 


02 AS 


01 


2D 




CMP 


B 


«I2D 


LERUNG NII4JS' 


02AA 


it 


OS 




BNE 




GOOH 


NO 


H28C 


97 


F4 




STB 


fl 


MEflFL(| 


yti 


Of BE 


0« 




riEXT 


[NX 






PPEPBKE Td GET NEXT ONE. 


02 AF 


BE. 


00 




LDB 


w 


O.X 


DO IT 


02B1 


81 


30 


soon 


CNP 


B 


««3» 


>- TEPO* 


0283 


2D 


IE 




BLT 




HOTDNE 




02BS 


01 


39 




CMP 


fl 


■1*39 


«- NINE' 


02B7 


2E 


IB 




1GT 




HOTCJNE 




02B9 


00 


30 




EU1. 


B 


B*3» 


liOT DKE. COKVEPT TO BINBPV 


02 BB 


97 


Fl 




STB 


fl 


BTENP 


SAVE FOP LBTEP 


02*D 


32 






PH. 


fl 




PES TOPE MSB 


02BE 


58 






(Wl. 


B 




* 


BF 


49 






6MX 


B 




4 


02«0 


97 


F3 




STB 


B 


N 


* 


02 2 


87 


F6 




STB 


B 


H.I 


4 


02C4 


58 






h:l 


1 




4 NULTIPLY »V 10 


02 5 


49 






POL 


B 




* 


02 C 6 


SB 






BSL 


B 




4 


OiCT 


49 






ROL 


A 




* 


02C* 


£0 


F* 




SDH 


B 


M»l 


* 


oecfl 


99 


FS 




BPC 


A 


N 


4 


02CC 


iib 


Fl 




BBfj 


■ 


BTEAP 


ADD IH DIGIT 


02CE 


69 


00 




FlDC 


B) 


Oil 


sun CBPPY CUT. 


so 


36 






PSH 


A 




FREE BCCflj 


02D1 


20 


DB 




BPB 




NEXT 


DO IT AGAIN 


02 113 


3* 




NOTONE 


put. 


fl 




HC»E 4dE DIDN'T FIND fl S161T 


021)4 


70 


00 F4 




TST 




NEGFLS 


NE6BT1VE' 


02D7 


27 


05 




BEC 




SKIP 




02 D9 


4i 






CDN 


B 






02 DA 


50 






NE6 


B 




MAKE IT NEGATIVE, 


02DB 


2i 


Ot 




BNE 




SIIP 


\ 


D2DD 


« 






INC 


B 




cbppy our 


02 HE 


97 


FS 


snip 


STB 


B 


» 


5TBSH THE NUHSEP 


02EO 


D7 


Ft 




STB 


B 


*♦! 


'■■E BUILT. 


02E2 


33 






POL 


B 




PESTOPE BCCB 


E3 


39 






PTS 









SUBROUTINE ADDI 



02E4 


M 


FC 


ADBI 


LBA 


A 


[♦I 


02E6 


9B 


F6 






ADD 


A 


N*l 


02E* 


97 


FC 






STA 


A 


Wl 


KTIM 


* A»ffMP«TIC 


PACHASE 


¥ 


I.B 


02C* 


M 


r» 






LBA 


A 


I 


02EC 


9» *S 






ADC 


a 


n 


02EE 


97 


f 






STA 


9 


I 


C?FC 


39 








PTS 







ADOS M TO 1 AND PLACES THE RESULT IN I. 



'«S N1C«C JOJBMH. 



SUBTRACTS N FROK I. LEAVING DIFFERENCE IN 1. 



02FI 96 FC 
02F3 90 F6 
02FS »7 FC 
t«F7 M Fl 
0EF9 »« FS 
02FB 97 FB 
02FS 39 



LDB A 1.1 

SUB B n»! 

STA A 1.1 

LDA A I 

SBC A K 

STA A 1 
PTS 

SUBROUTINE riULI 



MULTIPLIES | BY H AND PLACES THE RESULT IN 1. 



02FE 


DF 


FO 




NUll 


SIX 




XTEMP 




0300 


37 








PSH 


B 




SAVE X AND » 


0301 


Cf 


lid 


It 




IPX 




»16 


JET COUNTER 


0304 


tj 








CLP 


B 




CLEAR PRODUCT MSB 


030? 


t* 








CLP 


B 




BND LSB 


0306 


76 


00 


FS 


n gn 


POP 




N 




030» 


76 


00 


F6 




POP 




H.I 


TEST LEAST SIGNIFICANT BIT 


03 Of 


t* 


i.4 






BCC 




NSkIP 


Or MULTIPLIER. 


030f 


I.B 


re 






BOB 


B 


1*1 


ADD IN MULTIPLICAND 


0310 


9* 


n 






auc 


fl 


1 


IF SEI 


0312 


Ti 


u 


M 


NS»IP 


ASL 




1. 1 


SHIFT MULTIPLICAND 


0315 


Ti 


00 


Ff 




POL 




1 


FOP NEXT TtHI 


0318 


•9 








DFX 






COUNT ONE 


0319 


±: 


n 






BNE 




NAGN 


PEFEBT IF NOT FINISHED 


031 1 


tir 


FC 






STB 


B 


|.| 


STORE PRODUCT 


out 


97 


FB 






STB 


B 


1 




03IF 


33 






PSTBX 


PH. 


B 






0320 


DE 


FD 






LDX 




XTENP 


RESTORE X AND » 


0322 


3 








PTS 


















SUBROUTINE NE6M 
















PE LBCES n BY -M- 


0323 


96 


FS 




NEGN 


LPB 


B 


N 




0325 


43 






N^GMEh 


COM 


B 




ENTRY FOP UHFH » ALREADY L 


0.V6 


Tn 


00 


F6 




NEG 




N.I 




03M 


.> 


fit 






BNE 




NEGNI 




032B 


4C 








INC 


B 







iHTEfEP BPITW1ETIC PACKAGE V 2. 
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032C 97 FS 

032E 39 



032F 96 FB 
0331 2D 03 
0333 1? 



STA A 
PTS 



SUBPOtTINE BBSI 

REPLACES I BY ABSOLUTE VALUE OF 



LTiA B I 

BLT NF6IEN 

PT> 



IF NEGATIVE Mfl»E IT POSITIVE. 



SUBFOliTlriE «E61 

pepi.ac.es i by -i 



0334 9 FB 




NEG I 


LDA B 1 


0336 43 




HESIEN 


COM B 


0337 70 00 


FC 




NEG 1.1 


035* 26 01 






BNE NEG II 


03 K 4C 






INC ft 


033D 97 FB 




NESII 


STA A 1 


03?F 3« 






PTS 



ENTRY FOP IJHEN A fllCEADY LOADED. 



SUBPOUTINF H1VI 

REPLACES 1 BY I.M. 



PEHBIIIDEt IS IN N. 



0340 SD 11 
0S42 DF FD 
0344 [IE FB 
0346 DF F7 
034A DE F5 
OiJA [if FB 
"34C llE F7 
034E tlF FS 
0350 fE FD 
0352 39 



1)353 96 F6 

0355 3A F5 

(1337 26 03 

0359 7E 04 4B 

035C 37 

0i5B DF FD 

055F ?F 



DIVI 

SUftPlN 



B5P 

•TX 

LDX 

T 

LDX 

STX 

lux 

STX 
LDX 
PTS 



PEHl 

XTENP 

I 

n.2 



M4? 

n 

XTENP 



PEPFOPM DIVISION 
UTILITY TO SUBP I AND H. 



PFSTDPE INDEX PEGISTEP. 



SUBRCA1TINF PEN1 

PEPLBCES I BY THE PEH«IN*EA FDLLOvINi B MVISI 
I H, N CONTBIN THE QUOTIENT. 

LDA B N.I 

OPB A M CMECk DIVISION BY 7EF0 

B«r BNOERP 

jnp uspEpr int biv by ;eph code . o 

R - H * TBVE BCCD 
STX jiTENP BND INDEX 
CL * * LEAP NEGATIPE QUOTIENT FLAG. 



INTEGSP ARITHMETIC FB ► BGE V 2.0 



0360 D7 FF 

I1362 9 FB 

.0364 2C 05 
036f 53 

0367 07 FF 

f.36« «0 CB 

036B o* FS 

036D 2C 05 
036F 53 



STA 
LDB 
BGE 
CON 
STA 
BSP 
LDA 
BSF 
CDN 



SGNPEH 
NEG1EN 



6* NICPO JOURNAL Rf 

CLEAR NEGATIVE PEIW1H0EF FLAG. 
CHECe NUNEPBTOR SIGN. 

JET MOF 
SET NPF 

PEPLBCE I BY -I 
CHEO DIVISOP. 

TOGGLE HOF 
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0J7<J Mi B3 




us* nfghen 


M*kE BIVI5C* ME6BT1VE. 


04?B 09 




BEX 








0372 iD IF 




»LT HIVINF 


MJN T DIVIDE IF CvEPFLDU. 


042C *t 


f> 


LDS A M 


SEE IF OUTPUT IS TEPD 


VE T . 




0374 Or F« 


DPOSi 


Trl B HFGFLG 


nOu MVI0E1 


(l4cE 9B 


Ft 


OPfl A «»| 








o3.-« ;t im o 




TST 1 


<liFC> PtVtDEKB CVFPFLCKI. 


0430 ci 


« 


BMF. UNO TO 








03r» j-n i» 




PC T »DVF 




•44? 7P 


0<i Fl 


TtT BTFHP 








037B.*D «,l 




B'P PDIV 


0) TO DIVIDE. 


0435 IT 


Ot 


BF»> OPLLIS 










* 


FIX 3 JGItS tlOU 


0437 Bt 


^^ 


LP* A iitSfi 


MIHUt :ish. 






o:-7t' 7» <io F4 


F1XSGM TiT HFtFLS 




(i43o B" 


•fl 


STA A lu* 








1380 27 o? 




BEO OPO'^ 




lAitl no 




DEX 








033c 9I> OF 




8S» 1'FGH 


MBkE OLIO F>0£. 


(.4 3c ?C 




INC B 


COUHT. 






03*4 70 CO FF 


dpd:? 


TST 'SHPEN 




*43D S? 




[1PLIIS FT5 








riser e? « 




ieo pea:* 








• 








3S? 9P B» 




8i P MEG I 


«*►£ PEMBlNtEf NEGATIVE. 


• 43E H 


F* 


rjrtnTo i. oft a pi 








•»t re 03 if 


DPOt« 


.mp ;>;m 




(1440 ^7 


FB 


STA M t 


HOVE (JUOTIENT TO 1. 






IW3E ?* 00 Ft 


DNEG 


ASL M.l 




(■44J 94 


Ft. 


lDK H N*1 








03>i 20 ~f 




B»B IKMFT 




0444 ?7 


FC 


!TA 1*1 








0393 "F on FS 


PIVIHE CLF H 


KOTE n.l . 


C'44e. 2t 


CF 


BPA Of** M 








tsv ;i ii fi 




TST t 








* 


FKTi OF COM. 






03»* jc £9 




BSE DPO".T> 


Ok. GO FIX PENBIId'EP tUSH. 


OJ43 til 




CPIFD FCB Hi |k. 4 


PBTr. FOP CP IF 






«)!>P 7C CO Ft 




IK "•! 


TWO avEPFLOu!. 


0444 «« 


n.l 










•39E 7F on P» 




lit 1 


: - epo PEMBirtDEf. 


044B 35 




IJIPEF-F/ pt; 


UI'EP SUPPUIEh EPPDP HDUTlNE. 




OSBI 20 EB 




BPfi ppost 


1 WIOIIENT. 














03B3 86 40 


MVF 


Lira B n«4n 


BINBPV 01 OP nor.r? 






EnD 








0SB5 97 FB 




•T« S 1 


«fl>E 1 . -•-J£76B. ?> 




HO EFFOP'-' BETECTEO 








03N7 DE F5 




l»x n 


SAVE LIVISOP FOP LBTEP. 














03S4 OF F" 




•TX M»4 
















osbb so ;i 




BSP PPIV 


HOu DIVIDF. 














1)3*11 76 00 FA 




bsl **i 


I4ULTIPLV »«ID By f 


JVNIiOL TBBLEI 








0?»tl 7? CO F* 




PCI tt 




NBJI 


03£F 


tltiO (>?3Z 


ADDI <VE4 


NTEHP 


• 0=1 


03B3 re oo r< 




fl!L i»i 


MULTIPLY PEN BY ? 


BANC 


0cr47 


IrBH.Vl 0?V 


CFIF •23i: 


CPLFtJ 


H4 4$ 


03B* 7* 00 FB 




PO I 




Mvl 


C..40 


BIVINF (I4al 


liivo 027t 


DLDQP 


03llt 


*SB» 9t FB 




LOB H 1 




HLOOPN 


03FF 


D«EG (139E 


DHPEFF 035C 


DOVF 


05i43 


• 3BB 16 FC 




LW > 1-1 




BPtlSl 


036B 


DPQS3 ()3r4 


»F0J? 03*4 


PPo:t 


OJill 


03B» DO FA 




SUB 8 M»5 




o:hft 


0401 


EPPOP Oia* 


FIXS6H 0370 


SQOH 


OiH 


03BF « F9 




SBC fl H.4 


iEE IF DIVISIOM IMS COFPECT. 


i 


0«FP 


IF11LL <»?E 


IllBUF tiOFf 


HIEEE 


EIBC 


C i eo W 




BLT FIXS6M 




iriE>T 


OJ-lf 


INPUT 021 f 


l!TA!H hilE 


H 


,„..- 


03C3 D7 FC 




STB B 1*1 


NO. FIX PEHBINDFF. 


M«H 


ovn* 


Mt tF OJIP 


NLH 1 0^FE 


MIJLO 


OftB 


03C5 9? FB 




STB a 1 




iieofmc- 


0»F4 


(IF SI 03 ?4 


(«EG1 > O.WIi 


NEC. IAN 


033t 


03C7 OE F3 




LBX m 


BND FIX OUOTIENT. 


»E6« 


nw 


MFC*)! 032C 


HEGHFH 03^? 


NE«0 


(«5| 


03C9 oe 




jrtx 




!(EXT 


OJAE 


HCtOJE fifl>3 


OflGK (i4|7 


DNOTO 


<|43E 


03CB »F F5 




fTX M 




ODr 


04ft 


OPLUS '.4^D 


OPOS 1 0414 


DUTEEE 


EIDI 


HTE6ER HHITHKETIC PACKAGE V 2.0 


'*« BICRO JOUBWK. m« B 3t'T I 


114 DE 


OUTP11T »2J> 


OVE P Of iF 


PDBTAt 


E07E 










SB IV 


03CE 


EBDI (tf-AI 


PEN I 0«3 


PEM(' 


027F 


03CC 20 AF 




BSA FIXSGH 


GO. CORBECT SISftS. 


PSTF-: 


03IF 


Ja'NPEH OfiFF 


>|F- 02IiE 


JLISI 


•£F| 


^ 






UB» 


02t4 


JiiBPIn »?4? 


IE SI »S0f 


U'FEPR 


*44B 




» 




rlfllM LODPfS> TO PEPFDBM BCtUftL 


D1V1S1XTEMP 


OOFD 












* 




HHEM EVERYTHIflS IS )M ORDER. 














C3CE SF 


PDIV 


CLP B 
















3CF 117 F>7 




Sta B rt«? 


CLEB* DIVISOR SHIFT BBEB. 






■1 BBBBl BBRBaBBRBa 








03BI 17 F9 




STB B «»3 








1 c ■ ■ 


EDO 






03D3 CE 00 10 




LSX alt 


LOOP COWNT 






LLC 1 1 


Cn9 






03 lit 74 00 FS 


DIOOP 


LSF> H 
















0319 7* 00 Ft 




POf H»l 


SHIFT DIVISOR RICHT. 














03DC 7* 00 F7 




POP M*2 
















03DF 76 00 F8 




RDF' lit] 
















03E2 OH 
03E3 96 F5 




BEX 

LDB fl « 


COUNT OfE. 

CHECK IF UPPER It BITS ZERO. 




Dear 


Staff, 








03E5 9B F6 
03E7 26 EI 




OPB fl B»l 
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fixes from SMTP that they include 
with current kits that were not 
included with earlier ones, (I will 
be sending one in I found out about) 
How about if someone calls SWTP 
about a problem or question, and 
they feel the rest of us would be 
inter ested in the answer, they 
just drop you a post card? Quick 
easy filler. 

As for color, the advertisers 
might prefer it, but for me, the 
cover is enough. 

Two venders I have had good 
service from, are Qimix and, World 
Wide Electronics. 
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I like the personal feeling of 
'68' Micro, and thanks for standing 
up for the 68001 

Jerry Sorrels 
6266 Banner Ct. 
Riverside, Ca. 9250U 

P. So Tell Assistant Editor Mickey 
Ferguson he owes me a letter. 

Jerry Sorrels 
6266 Banner Ct. 
Riverside, Ca. 9250li 

Hot MF-68 Stepper Motor Fix 

On the first MF-68 Disk Systems 
after SWTP changed to Wangco drives, 
the LED on drive was used to 
indicate power on, and head load. 
This not only was confusing but 
caused the drive stepper motor to 
be energized all the time, and 
become quite hot compared to drive 1* 

Later SWTP used Wangco drives 
that had been modified to remedy 
this over-heating problem, these 
modified drives are identified by the 
F revision after the drawing number, 
on the schematic that comes with 
the drives • 

If your drives are revision E and 
the following fix was not included 
with your instructions, you'll 
probably want to add it. 



write to it. T was using the new MP-2 
processor board that has a 1 MH clock. 



ISLAND COMPITEH8 

BOX 668 
ST. JAMES CITY, aOR'DA 33966 



.isrch 16, U79 

'68 • mora Journal 
Mr. Don Williams 
3018 Ha/olll Road 
Hlwon. TN 373U 

Dear Oco, 

The first la.ua of /our (lose oiordu.) '68' Mloro Journal 
Is lndead impreseiTe. Congratulations, Voir adltoral aaya It all, 

Dua largely to your raply to tna 'toy merchant', *• Oreon, 
I fail that your attitude daearves at l.aat • two yeer'e eutport, 
is tna foro of ay eubaoriptioo. [onaeK onoloaed) 

Aftor reading the aotlra Journal, the following tvo faota 
seam vary dIitIousi 

1, Tna loduatry laadar of tba (£00 ayateie la unaantioned.. 
Hopefully, do cvereigbt, soon to ba aornoted. 1 'a aura tbat 
you beta notloed tbat all tbi resent "nan" produota fra> SWT1, 
GlaUi. rtrtaoi and tba otb.ro, ara only ettospa to oetob. up vltb 
aoaa of tba faaturaa that tba uaera of VB1 and tbalr Jii-8 aye t em 
ban baao enjoying for mora tbao two yaara. (nop,, «• don't aall 
tbo tV-8 - vo'ra Juat usera) TO data, I ha** not aeon a cava 
raleeia or adaartlanest, union avan olalae to equal, or approach, 
tha faaturaa or 'uaeaMlity' of tba FD-8. as bare tba SwTF 
oomjmter, and uaa it eeaxyday, but w&en tbe oboloa of die* seaory 
oaae up, IUH vae too mob of a aeorif too, eoapalrad to tba JB-8, 

2, All. reading tba '68' Mloro Journal, tha laprssalen kept 
re-occuring tbat perhaps I uaa reading a 'ISO benefit aeaoaletloa' 
eoBnuinnique. ISO la good at what they do (they aaved SXTr -a life}, 
but then tbara aJS other tender*, and u* reedera would prefer • 
broader oorsraga, (of oouraa, edTertlelng buugeta auit be eosnidered) 
However, tbla partleular eril le euraly tha faetor with wtooa, 

tetyoe Ones la unable to oopa. In bla devotion to the cotton end 
eyetcoa which ba supporte. 

We're got the heat ayatam - tba 6800 - and your 'Bag' baa got 
to ba a viasar. We're on your elda, print It on namprlat, but 
keep it going. 



Sincerely 



H, 0. KcKay & 
la land Confute ra 



On the disk controller board lift 
IC h pin 6, so that it is not 
connected to anything. Now drive 
LED will only light when it's head 
is loaded. 

I still wanted a power on indicator, 
so I mounted a suitable LED one inch 
from the left side and centered in the 
silver area just above the SWTP logo, 
I connected the LED 1 s cathode to ground 
and the anode through a 330 ohm resistor 
to plus 5 volts. Now I don't forget 
to turn it off I 



FABTICITKTOPT WORKSHOP OH HICROCOHPUTER gOTTWMut 



Chrletaaa waak 1979 at a quality carlbbaen re. art. 
Topics will Include ayateve and application eoftwere 
aa well u prof.eelonel, educational and email 
hualneaa programs (grouped for the popular CTU'a as 
wall ee available higher languages) . Volunteers ere 
needed now to help organise each eraa of interest, 
xsvp Inaedletely for further dataila on this not-for 
profit users' holiday-workshop. Faalllea ara 
walcoaa. 



Dr. Andy Sender 
400 Old Hook Road 
Meatwaodi H.J. 0767: 
201-664-4882 (daya) 
201-652-0157 (nltee/weekenda) 



Dr. Jeff Drowneteln 
2 Tor Road 

Happlnaera Fella, N.Y. 
914-297-3950 



** NOTICE ** 



One other item of possible interest, 
Texas Instruments 2516 is pin compatable 
to the 5 volt 2716 that is used with 
the SWTP MP-R Eprom Programmer. The 
2516 I used was a 650 ns.,but the 
programmer was still able to read and 



All new subscribers please note the 
following; 

Aa 68 Micro Journal continues to grow, 
back issues are becoming more and more 
difficult to supply. Many new 
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subscriptions are received requesting a 
start with issue number 1. Others request 
issue 2 as a starting issue. Due to a 
couple of reasons, we can not honor these 
request. 

I understand that many would desire a 
full set, from issue number 1. However; 
issue number 1 is depleted. We are 
growing at a much faster pace than ever 
anticipated. Fact is, we are 752% ahead of 
where we thought we would be at this date 
in time. 

Prior to our first issue, way back in 
September 1978, we commissioned a study 
and survey, to determine the market 
potential for our type publication. The 
results looked good, so 1 took the plunge. 
They sure missed the mark. We are better 
than 752 percent ahead of their 
predictions. This means that issue 1 
backissues ran out quick. 

1 hope to rerun issue number 1, in the 
near future. The cost of such a project 
will be stiff. If you desire copies of 
issue number 1, please let us know. I 
need a feel of about how many to run next 
time around. 

The policy is this...... We will add all 

new subscriptions to the update list, 
going to the mailers, within one week of 
the next issue due out. This is much 
faster than other magazines. I don't know 
how long we can keep this up but we will 
for as long as we can. 

Please do not request your subscription 
to start with a backdate issue. If you 
want a back issue, all except issue 1, are 
available. The price is $2.00 (cover 
price), plus $1.50 postage and handling. 
The postage alone, first class, is $1.06. 
1 know this is stiff for some but it is 
the only way we can handle backissues. 

-DMW- 



TRANSFER (FLEX-1 to FLEX-2) 



Osnnlt WomacK 
Fit. 4, 109 Foster Dr. 
Ringgold. QA 30736 



Let* 8 say that you have just upgraded to 
TSC'8 FLEX 2.0 on your minifloppy disk 
system. What happens to all those files 
you stored on MINIFLEX disks? Can you 



just read them from FLEX 2.0? The answer 
is no. MINIFLEX sectors are 128 bytes 
long and FLEX 2.0 sectors are 256 bytes 
long. So you see, there is a problem. If 
you have enough memory so that FLEX 2.0 
and MINIFLEX can both be in memory at 
once, this is a program that can help you. 
You must have memory from $7000 to $7FFF 
and from $A000 to $BFFF. To use this 
program, boot up your system with the FLEX 
2.0 system disk. Exit by using the MON 
command. This will leave FLEX 2.0 in 
memory. Now boot up with the MINIFLEX 
system disk, again exit by using the MON 
command. This leaves MINIFLEX in memory. 
Re-enter FLEX 2.0 at $AD03. Insert the 
MINIFLEX disk containing the file you 
desire to transfer into drive 1. A FLEX 
2.0 disk with the TRANSFER command must be 
placed in drive 0. Be sure you have 
enough room on this disk for the file you 
wish to transfer from the MINIFLEX disk. 
If you divide the number of sectors in the 
source file by two, this will give the 
maximum number of sectors in the FLEX 2.0 
copy. To transfer the file, simply type 
TRANSFER file spec. This might look 
like: 

TRANSFER FILE. TXT. 1 

The drive number is not necessary. The 
source file will automatically be read 
from drive 1 and written to drive 0. 

Let '8 go through the operation of the 
program and see how it works. Each 
version of FLEX keeps a current track 
table in the disk drivers to remember the 
current head position for each drive. 
TRANSFER first • patches the MINIFLEX 
drivers to use the same table as FLEX 2.0. 
We want the right hand to know what the 
left hand is doing. 

We now get the file name of the target 
file, by using a routine in FLEX called 
GETFIL (GFILE5). The name is left in the 
FLEX 2.0 file control block (FCB). Then 
we open a FLEX 2.0 file of the same name 
for writing on drive 0. Putting a 2 in 
the first word of the FCB opens the file 
for writing. Calling the routine SETEXT 
with 1 in the a register sets the default 
extension to txt. Setting the fourth word 
in the FCB to selects drive 0. Space 
compression is turned off so that binary 
as well as text files may be transfered. 
Placing $FF in word 59 of the FCB does 
this. If there are any errors we use the 
FLEX 2.0 error handler. 
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After we transfer the name of the file, 
a 1 is placed in the first word of the 
FCB. This indicates an open for read 
operation. These operations are the same 
as before, except that equivalent routines 
from MINIFLEX are used. The MINIFLEX file 
of the same name is now open for reading 
on drive 1. Space compression is again 
turned off. If we have any errors we use 
the MINIFLEX error handler. 

Once both files are open, transfering 
the data is a simple matter. One byte at 
a time is read from the MINIFLEX file and 
written to the FLEX 2.0 file. Calling 
each file management system in turn is all 
it takes. This loop is exited by 
encountering an error. If all is working 
properly this is an end-of-file error. 
When this happens both files are closed 
and the program returns control to FLEX 
2.0. 

All errors are handled by the 
appropriate version of FLEX. The version 
encountering the error is printed to help 
you know where the problem is. 

The reader is encouraged to buy copies 
of TSC'S Advanced Programmer's Guide to 
FLEX and Advanced Programmer's Guide to 
MINIFLEX. These contain a wealth of 
information for the system programmer. 

Let's suppose you need to transfer a 
file back the other direction. Can you 
figure out how to do it? 



NAM 



TRANSFER 



MINIFLEX and FLEX are trademarks 
Technical Systems Consultants, Inc. 



of 



DW 
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45 
46 
47 

48 0100 

49 0100 

50 0102 

51 0103 

52 0106 

53 0109 

54 010C 

55 010F 
56 

57 
58 

59 0112 

60 0115 

61 0118 
62 



20 01 

01 

CE BE 99 

FF 7F ED 

CE BE 95 

FF 7F El 

FF 7F FO 



CE A8 40 
BD AD 2D 
25 74 



** 

* 

* 

* 

* 

* 

** 



TRANSFER UTILITY 

THIS UTILITY RUNS UNDER FLEX 2.0 AND WILL 
COPY A MINIFLEX FILE BYTE FOR BYTE 
TO A FLEX 2.0 FILE OF THE SAME NAME. 

TO USE: 

1. BOOT FLEX 2.0. 

2. EXIT VIA "MON". 

3. BOOT MINIFLEX. 

4. EXIT VIA "MON". 

5. RETURN TO FLEX 2.0 AT $AD03. 

6. INSF.RT FLEX 2.0 DESTINATION DISK WITH 
THIS PROGRAM IN DRIVE 0. 

7. INSERT MINIFLEX DISK IN DRIVE 1. 

8. TYPE "TRANSFER, FILE SPEC". 

9. FILE WILL BE TRANS FERED. 



WRITTEN BY DENNIS WOMACK 
COPYRIGHT 2/10/79 
ALL RIGHTS RESERVED 



* ROUTINES USED FROM MINIFLEX AND FLEX 2.0 



SET EXT EQU 

RPTERR EQU 

WARMS 2 EQU 

GFILE2 EQU 
SEXT2 
RERR2 

PSTRNG EQU 

FMS EQU 

FMSCLS EQU 

FMS 2 EQU 

FMSCL2 EQU 



EQU 
EQU 



$712D 
$713C 
$AD03 
$AD2D 
$AD33 
$AD3F 
$AD1E 
$7806 
$7803 
$B406 
$B403 



MINIFLEX 
MINIFLEX 
FLEX 2.0 
FLEX 2.0 
FLEX 2.0 
FLEX 2.0 
FLEX 2.0 
MINIFLEX 
MINIFLEX 
FLEX 2.0 
FLEX 2.0 



SETEXT 

RPTERR 

WARMS 

GETFIL 

SETEXT 

RPTERR 

PSTRNG 

FMS 

FMSCLS 

FMS 

FMSCLS 



* FILE CONTROL BLOCKS 

* 



FCB 
FCB2 



EQU 
EQU 



$7740 
$A840 



MINIFLEX FCB 
FLEX 2.0 FCB 



* TRANSFER UTILITY 

* 

ORG $100 

TRNSFR BRA START 

FCB 1 

START LDX #$BE99 

STX $7FED 

LDX #$BE95 

STX $7FE1 

STX $7FFO 

* GET TARGET FILE NAME 

LDX #FCB2 

JSR GFILE2 

BCS ERROR3 



VERSION NUMBER 
PATCH MINIFLEX DRIVERS 
THE SAME DRIVE 
ACTIVE INFORMATION 
AS FLEX 2.0 



POINT TO FLEX 2.0 FCB 
GET FILE SPEC. 
BRANCH IF ERROR 
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LDX 




«FCB 


157 


01D3 


A7 


08 




STA 


A 


8,X 


158 


01D5 


CE 


A8 


40 


LDX 




4FCB2 


159 


01D8 


A6 


09 




LDA 


A 


9.X 


160 


01DA 


CE 


77 


40 


LDX 




tfFCB 


161 


01DD 


A7 


09 




STA 


A 


9.X 


162 


01DF 


CE 


A8 


40 


LDX 




«FCB2 


163 


01E2 


A6 


OA 




LDA 


A 


10 ,X 


164 


01E4 


CE 


77 


40 


LDX 




0FCB 


165 


01E7 


A7 


OA 




STA 


A 


10, X 


166 


01E9 


CE 


A8 


40 


LDX 




(JFCB2 


167 


01EC 


A6 


OB 




LDA 


A 


11, X 


168 


01EE 


CE 


77 


40 


LDX 




0FCB 


169 


01F1 


A7 


OB 




STA 


A 


11, X 


170 


01F3 


CE 


A8 


40 


LDX 




«FCB2 


171 


01F6 


A6 


OC 




LDA 


A 


12, X 


172 


01F8 


CE 


77 


40 


LDX 




4FCB 


173 


01FB 


A7 


OC 




STA 


A 


12, X 


174 


01FD 


CE 


A8 


40 


LDX 




«FCB2 


175 


0200 


A6 


OD 




LDA 


A 


13.X 


176 


0202 


CE 


77 


40 


LDX 




4FCB 


177 


0205 


A7 


OD 




STA 


A 


13, X 


178 


0207 


CE 


A8 


40 


LDX 




#FCB2 


179 


020A 


A6 


OE 




LDA 


A 


14, X 


180 


020C 


CE 


77 


40 


LDX 




«FCB 


181 


020F 


A7 


OE 




STA 


A 


14, X 


182 


0211 


39 






RTS 







REPORT ERROR 
EXIT 



PRINT "FLEX 2.0" 

REPORT ERROR 9 
CLOSE ALL MINIFLEX FILES 
CLOSE ALL FLEX 2.0 FILES 
RETURN TO FLEX 2.0 
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183 






* 












184 






* 












185 






* 












186 


0212 
0213 
0215 
0217 
0219 


4D 

49 4E 
49 46 
4C 45 
58 


MSGl 


FCC 


/MINIFLEX/ 








187 


02 1A 


04 




FCB 


4 








188 


021B 
021C 
021E 
0220 
0222 


46 

4C 45 
58 20 
32 2E 
30 


MSG2 


FCC 


/FLEX 2.0/ 








189 


0223 


04 




FCB 


4 








190 








END 


TRNSFR 








NO ERROR (S) DETECTED 














SYMBOL 


TABLE; 














ERROR1 015F ERROR2 


0180 


ERROR3 


018E ERROR4 


019A 


FCB 


7740 


FCB2 


A840 FMS 


7806 


FMS 2 


B406 FMSCL2 


B403 


FMSCLS 


7803 


GETNAM 01 A3 GFILE2 


AD2D 


LOOP 


014D MSGl 


0212 


MSG2 


021B 


PSTRNG AD IE RERR2 


AD3F 


RPTERR 


713C SETEXT 


712D 


SEXT2 


AD33 


START 0103 TFNSFR 


0100 

A 


WARMS 2 
conn i 


ADO 3 
■■■■■Mrs net a 









Howard Serenbon 

27200 Franklin Rd. No. 105 

Soulhfield. Ml 46034 



Rn important tool for * real-t ime' programming is 
the tint* delay. It if < necessary program for design of horn* 
Applications. It can be used in burglar alarm systems/ horn* 
control/ 9«mis^ and in ang case whtrt software timing is re- 
quired. 

In the case of an alarm system.* the time delay can be used for 
pulsing the alarm bell/ when a break-in is detected. If the 
alarm is battery operated/ this will reduce battery drain. It 
will also keep the neighborhood annoyance to a minimum. R two 
minute 'on' time and a one minute 'off, with a one or two 
hour automatic shut-down/ would be adequate. 
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Program delays may be used in controlling horn* appliances, fin 

eltctric coffee pot may be interfaced to your system, through 

an RC control box. Using a delay as part of your program, you 

can enter in the amount of time required to make the desired 

strength of coffee. Vour system will activate the PC control 

box, which will turn on the coffee. After a pre-d et ermi ned 

time the coffee will be done and the pot will be turned off. 

Then, an alarm will be activated, indicating that your coffee 

is ready. 
TIMING 

Processor timing is important to the design of delays. 

The speed and number of cycles required for instruction 

execution is necessary for accurate design. 

The 6800 operates at 1 mHz. This means that the processor 
cycle is 1 uS. fin instruction, such as BRfi, requires 2 
processor cycles to be executed, or 2 uS. This information 
is available, for each instruction, in the M6800 Microprocessor 
Instruction Set Summary. 

The average number of cycles per instruction is 4. fi four line 
program may take about 20 uS to run, if there are no 
loops in the program. 

W typical time delay subroutine is given below. It will delay 

1 millisecond each time it is called. Accumulator B is used 

to set a count of 165 uS. Each time the program loops, from 

step 4 to step 2, the computer wastes 6 uS. Accumulator B 

is decremented, and checked for zero. When it reaches zero, 

the loop is broken and the 6800 executes a CMPX 0000 and 

an RTS. This adds the remaining time to complete the 1 

22 , '68' Micro Journal 



millisecond delay. This subroutine may be a basis for 
other length delays. If it's looped 100 times, gou have a 
100 millisecond delay/ and so on. 

1 MILLISECOND DELRV 



LINE 


# 


ADDRESS 


OBJECT 


CODE 


MNEMONIC 




0001 
0002 

0003 

0004 
0005 

0006 
0607 




0100 

0102 

0103 

0105 

0107 
010R 




C6 FO 
5R 

27 02 
20 FB 

8C 0000 
39 


MILLI 
UP 

OUT 


LDRB FO 
DECB 
BEQ OUT 
BRR UP 
CPX 0000 
RTS 
END 


Set 165 count 
Decrement B 

If-0, OUt 

Continue 
Waste time 
Return 


MNEMONIC 




# 


OF CVCLES 








LDRB 

DECB 

BEQ 

BRR 

CPX 

RTS 






2 
2 
2 
2 
3 
5 


M 6 


uS 







CRLCULRTION 

6 uS X 165 - 990 uS 

990 uS + 2 uS + 3 uS + 5 uS 
1O0O uS - 1 Millisecond 

MAKE LIKE A 6809 



1000 US 



M6809 Emulator by the Micro Works 



Dr. Ted Felntuch 
41 66 Gann Store R«. 
Hlxson. TN 37343 



! 



Amidst the excitement of a new chip, the 6809, which promises far 
greater computer power than the 6800, the Micro Works have produced a 
software package that allows prospective 6809 users a preliminary glimpse 
at the characteristics of the new computer. 

The package includes the Emulator at three different memory locations, 
3000, 6000, and C000. There is also a textfile including part of a well 
notated assembly listing. It contains all the documentation necessary to 
run the program. Continued on pagp 26 
'6B' Micro Journal 
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the TERminm- 




Until recently all terminal functions were designed with hard- 
ware logic. A relatively simple terminal with limited functions 
could easily require as many as sixty or more integrated cir- 
cuits. More sophisticated terminals with a moderate amount of 
intelligence could easily have over a hundred IC's. All this has 
now changed. With the introduction of MOS video controller 
circuits it has become possible to design a terminal using a con- 
troller and a microprocessor that will perform almost any 
imaginable function with software. The CT 82 has one hun 
dred twenty-eight separate functions— all of which are software 
driven. It contains fewer parts than most "dumb" terminals. 

The normal screen format is 16 lines (20 lines selectable) with 
82 characters per line. This is an upper -lower case display with 
a 7 x 12 dot matrix. The high resolution characters are dis- 
played on a Motorola Data Products M-2000 series monitor 
with a green P 31 phosphor. This monitor has a 12 MHz video 
bandwidth and dynamic focus circuits to insure a crisp well 
focused display over the entire face of the tube. An alternate 
all capital letter format is available (optional) with 16, 20 or 
22 lines and 92 characters per line. The lower case portion of 
this character set has graphic symbols. In this mode the lines 
may be moved together to give a solid figure or line. Direct 
cursor addressing combined with the plotting capability makes 
it possible to indicate the end points of a line and then to 
automatically draw a line between them. 

Both the monitor and the character generator have sockets 
provided for alternate material in the form of an EPROM. This 



makes it possible to have special terminal functions, or charac- 
ter sets that can be switched in under computer control. 

The CT 82 has its own internal editing. functions. This allows 
inserting and deleting lines and characters, erasing quadrants, 
or lines; doing rolls, scrolls, slides and other similar functions. 
The CT 82 can block transmit completed material to the 
computer, or output material to its own remote printer 
through the built-in parallel printer I/O port. The terminal 
can be programmed to operate at any system baud rate that 
is normally used from 50 to 38,400. The baud rate may be 
changed at any time within this range with a software com- 
mand. 

The cursor position, type of cursor, cursor ON-OFF and blink- 
ing are all provided. A command is provided to print control 
characters and also to turn on and off a tape punch, or tape 
reader. Protected fields, shift inversion, dual intensity and 
many other miscellaneous features make the CT-82 one of the 
most flexible terminals available. 

A fifty-six key alphanumeric keyboard plus a twelve key cur. 
sor pad is standard. A numeric pad may be substituted for the 
cursor pad (optional). Connection to the terminal is through 
a standard DB 25 connector and RS-232 signal levels. The 
CT 82 operates from 100. 115, 220, or 240 VAC at 50 to 60 
Hz. It weighs 20 lbs, and is a compact 18" wide. 10" high and 
18" deep. 
CT-82 Intelligent Terminal 

assembled and tested . . . $795.00 F.O.B. San Antonio 




SOUTHWEST TECHNICAL 

219 W. Rhapsody 

San Antonio, Texas 78216 



PRODUCTS CORPORATION 



(512) 344-0241 
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THE EDITOR- 



The only microprocessor editor with all the features and ease of 
use normally found only on large machines. "THE EDITOR" lets 
you fully use the CT-82's capabilities. 



LINE POINTER —Now you understand why the CT-82 has 82 columns. The left two columns 
are used for a line pointer, which indicates the line of text being edited. 

FILE WRAPAROUND-"THE EDITOR" may make multiple passes over the file being edited 
without restarting the editor. 

AUTOMATIC CARRIAGE RETURN-The last word in a line will automatically be started on the 
next line if it will not fit in the space remaining on the line. 

SIMPLE COMMANDS— Commands consists of a single letter, or a key press on the cursor pad. No 
complicated format to be learned and remembered. 

MULTIPLE COMMANDS and REPEATS— Command line may have more than one command. 
"THE EDITOR" will execute command strings sequentially. Repeat func- 
tion allows changes in a string through the text file. 

SOURCE TEXT TABS— Tab stops appropriate for source text input may be set to operate from 
the space bar, or any other key. 

SHIFT INVERSION— The keyboard may be set to produce either capital, or lower case letters 
when shift is used. 



SCREEN POSITIONING— Scroll up, scroll down, line pointer up, line pointer down, home file, 
top of memory, bottom of memory, move relative to pointed line and form 
feed are provided. 

"THE EDITOR" is available only for Southwest Technical Products com- 
puter systems using the CT-82 and running under FLEX-5*, or FLEX-8* 
operating systems. It may be used to edit any files, or programs compat- 
ible with the DOS, except binary files. Edited files are compatible with 
the TSC Text Processing program. The combination makes a powerful 
and inexpensive word processing system. 

Editor FLEX-5®or FLEX-8®. $25.00 ppd. in Continental USA 

®FLEX is ■ regit tarad trademark of TSC Inc. 





SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. Rhapsody 

San Antonio, Texas 78216 (512) 344-0241 
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To use the program, one enters 6809 code at a convenient spot in memory 
using the ROM monitor. If not already done, the Emulator program is then 
loaded in a location, in memory, not in conflict with the data. 

Then cause the monitor to Jump to -8A7 ( - indicates 3, 6 or C) . The 
Emulator has its own small monitor which uses an exclamation point for a 
prompt. Acceptable replies include "J", "S", "R M , space or carriage return. 

"R" causes the 6809 registers to be displayed. A "J" or "S" causes 
a space to be pointed to the terminal. The address of the 6809 code is 
typed on the terminal. If "J", the Emulator will begin to execute the code, 
printing a listing of all 6809 registers for each instruction. The number 
of instructions to be executed is determined by the value of the contents of 
the "A" register. 

The "S" instruction causes the Emulator to single step through the 6809 
code. Typing a "space" will cause execution of the next step. A carriage 
return will cause return to computer monitor. Illegal commands are ignored. 

The Emulator is obviously not going to be used to examine elaborate 

program written in 6809 code. The 6809 is meant to be programmed in assemblv 
language because many instructions have post-instruction bytes in which each 

bit has a specific meaning (like the condition-code of the 6800) . 

For experimentation with small sequences of code and for studying the 

numerous new stack manipulation and addressing instructions in the 6809, 

the M6809 Emulator by Micro Works is an excellent tool. 

EftOTn... SOME BASIC GAMES 

Bo* 493 

Laurel, MD 20810 

In keeping with what my accountant calls my books, I will 
attempt to start a Fantasy game group for the 6800. The 
following programs written in Computerware basic, should run in 
most machines without changes. They do require a disk and 
sequential files. They were originally developed on a cassette 
system but have been rewritten for disk. The first program runs 
very slowly and generates ten files on the disk that contain an 
array of numbers that represent a to by 10 matrix of rooms. The 
rooms form a maze and there is at least one path through from 
the top (north) to the bottom (south). If the disk already 
contains a set of files, it will erase and replace them. If 
some of the code looks clumsy, that is because there are later 
versions of this that do more things. By the way, the name I 
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call It is "maz.gen". Normally I run this only about once every 
2 or 3 months, and some users have not run It a second time at 
all. 

The second program Is the actual game(7). It does not 
display the rules as most fantasy games require that you learn 
by doing. This opens by getting one of the room files at 
random. That will prevent memorization. Once the room file is 
loaded it will place the player IN the first room (without 
telling its' position) and prompt for a direction to travel. 
From there on it is a fight to get out the south side exit with 
whatever loot you find along the way. The subroutines that 
control the gold and danger statistics can easily be modified by 
the user to reflect his/her own sadistic inclinations. In the 
data line that contains 1,1,,, ,1,1 the spaces between the commas 
have some acceptable control character (cntrl d) between them. 

I am interested in seeing what variations turn up on this 
game over the months. Also be it known that there is a VERY 
large version coming along (not for free) that uses 32k, 
supports several players, (not necessarily at the same time), 
remembers your last move, and includes many goodies. Enough for 
the plug - now the listings. 



0010 REM THIS PROGRAMME IS THE PROPERTY OF 

0020 REM H H H ENTERPRISES, BOX 193, LAUREL, MD. 

0030 REM ZIP 20810. ALL RIGHTS ARE RESERVED. 

0010 REM USE OF THIS PROGRAMME IS FOR PERSONAL ONLY. 

0050 REM THIS CANNOT BE DUPLICATED, SOLD OR GIVEN 

0060 REM AWAY WITHOUT WRITTEN CONSENT OF H H H ENTERPRISES. 

0070 REM THIS GENERATES, ON A DISK, 10 SETS OF 

0080 REM SEQUENTIAL FILES THAT CONTAIN 100 ROOMS 

0090 REM IN THE FORM OF A MAZE THAT ARE USED BY 

0100 REM THE PROGRAMME "EXPLOR", (VER. 1.XXX THIS 

0110 REM CANNOT BE USED WITH VERSIONS ABOVE 1.999). 

0120 LINE: 

0130 BASE: 

0110 DIM A( 11 ,11 ) ,B( 1 1 , 1 1 ) 

0150 FOR Z=1 TO 10 

0160 LET G*="MAZ"+STR$(Z)+".DAT" 

0170 IF FCHK G*<>0 THEN 190 

0180 FDEL C$ 

0190 OPEN 1,G* 

0200 PRINT "WORKING ON ";G$ 

0210 FOR 1=1 TO 10:FOR J=1 T010 

0220 LET A(I , J)=0:NEXT J:NEXT I 

0230 FOR 1 = TO 11 : A(I ,0)=-1 :NEXT I 

0210 FOR 1=0 TO 11 :A(I ,1 1 )=-1 :NEXT I 

0250 FOR 1=0 TO 1 1 : A ( , I ) =- 1 : A ( 1 1 , I ) =- 1 : NEXT I 

0260 FOR 1=0 TO 11:F0R J=0 TO 11 

0270 LET B(I,J)=3 

0280 NEXT J:NEXT I 

0290 LET H=10:V=10 

0300 LET D=INT(RND»H)+1 

0310 LET A( 1 ,D) = 1 

0320 GOTO 560 

0330 LET X1=INT(RND«3)-1 

0310 LET A=RND 

0350 LET Y1=INT(RND»3)-1 

0360 IF X1=0 THEN 390 
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0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
048n 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0560 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0660 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0600 
0610 
0620 
0830 
0840 
0650 
0860 
0870 



IF Y1=0 THEN 
GOTO 330 
IF XUX<1 

Y1*Y<1 

X1+X>V 

Y1+Y>H 

A(X+1 , 



390 



THE 
THE 
THE 
THE 
Y) = 



A(X-1 ,Y) 
A(X,Y+1 ): 
A(X.Y-I) 



IF 

IF 

IF 

IF 

IF 

IF 

IF 

LET K= 1 :RETUR 

IF A(X*X1 ,Y + Y 

IF X1=0 THEN 

IF X1>0 THEN 

LET B(X-1 ,Y) = 

IF Y1>0 THEN 

LET B(X ,Y-1 ) = 

LET AUUX.Y* 

GOTO 330 

LET X= 1 :Y = D 

GOSUB 330 

LET M:0 

FOR 1=1 TO V: 

IF A(I , J)<>0 

IF A ( I> 1 , J)<1 

LET XrI*1:Y=J 

IF A ( I- 1 , J)<1 

LET X = I-1 :Y = J 

IF A(I, J-1 XI 

LET X=I:Y=J-1 

IF A(I , J+1 XI 

LET X=I:Y=J+1 

LET M=1 

NEXT J 

NEXT I 

IF MOO 

LET 8:0 

FOR J=1 

IF A(V, J)>B 

NEXT J 

FOR J=1 TO H 

IF A(V, J)=B T 

NEXT J 

REN NOW 

WRITE 1 

FOR J=1 

WRITE 1 

NEXT I:NEXT 

CLOSE 1 

NEXT Z 

END 



330 
330 
330 
330 



THEN 

THEN 

THEN 

THEN 
N 

1X>0 
520 

B(X ,Y) = B(X 
Y)-2 



460 
480 
460 
460 

THEN 330 



B(X-1 

B(X,Y)=B(X 
B(X ,Y-1 )-1 
Y1 )=A(X , Y) + 1 



FOR J=1 TO 
THEN 700 
THEN 630 



Y)-2 
GOTO 
Y)-1: 



GOTO 540 
540 
GOTO 540 



X = X*X1 :Y = Y*Y1 



:GOTO 
THEN 

:GOTO 
THEN 

:GOTO 
THEN 



690 
650 
690 
670 
690 
700 



I=V: J=H 



THEN GOTO 570 



TO H 



THEN B=A( V , J) 



WRITE 
.D 

TO 10 
B(J,I 
J 



HEN B( V, J)=B( V ,J)-2:J=H 

TO THE DISK 

:FOR 1=1 TO 10 
) 



0010 REM THIS IS "EXPLOR", A GAME FROM 
0020 REM THIS USES 10 SEQUENTIAL FILES 
0030 REM A MAZE OF ROOMS FROM THE DISK 
0040 REM AT RANDOM TO USE 
0050 REM THE OPTION OF THE WIND IS NOT 



H H H ENTERPRISES 
THAT CONTAIN 
AND PICKS ONE 

IMPLEMENTED IN THIS 



0060 REM VERSION. ALL RIGHTS REMAIN WITH H H H ENTERPRISES 
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0070 
0080 
0090 
0100 
01 10 
0120 
0130 
0110 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0210 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0310 
0350 
0360 
0370 
0380 
0390 
0100 
0110 
0120 
0130 
0110 
0150 
0160 
0170 
0180 
0190 
0500 
0510 
0520 
0530 
0510 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0610 
0650 
0660 



REM AN 
REM US 
REM OF 
GOTO 1 
FOR Z1 
RETURN 
PRINT 
RETURN 
LINE: 
LET D$ 
DIM A$ 
DIM 0$ 
FOR 1 = 
READ 
NEXT I 
LET M = 
LET H3 
LET E = 
FOR 1 = 
READ A 
NEXT I 
FOR Is 
LET A$ 
NEXT I 
DIM D( 
LET X = 
LET G$ 
OPEN 1 
READ 1 
FOR V = 
FOR H = 
READ 1 
NEXT H 
NEXT V 
CLOSE 
GOTO 5 
PRINT 
RETURN 
PRINT 
RETURN 
LET X7 
FOR 1 = 
ON X8 
PRINT 
ON INT 
PRINT 
NEXT I 
RETURN 
PRINT 
RETURN 
PRINT 
RETURN 
GOSUB 
LET VI 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



D THIS GAME CANNOT BE USED FOR OTHER THAN PERSONAL 

E AND CANNOT BE SOLD OR GIVEN AWAY WITHOUT PERMISSION 

H H H ENTERPRISES IN WRITING. 
50 
=1 TO 5:NEXT Z 1 

A$; 



="MAZ" 
(12) 

(5), 0(5) 
1 TO 5 
$(I),0(I) 



= 10 



1 TO 7 

$(I) 

3 TO 5 
(1)=" " 

10,10) 

INT(RND(0)*10)*1 

= D$4-STR$(X) + ".DAT" 

,G$ 

,X9 : REM ENTRANCE DOOR LOCATION 

1 TO 10 

1 TO 10 

,D(V,H) 



1 

90 
"I. 



"I. 



■ I" 

■ I" 



= 1:IF INT(D( VI ,H1 ) )<>D( VI ,H1 ) THEN X7 = 2 

1 TO 7 

GOSUB 570,550 

TAB(20) ; 

(D(V1,H1))*1 GOSUB 570,550,570,550 



A$(I); 

2180 

= 1 :H1;X9 

"YOU ARE STANDING IN THE " 

"ENTRANCE TO A CASTLE'S DUNGEONS 

"TO SPECIFY A DIRECTION TYPE:" 

"N= NORTH (UP)" 

"S= SOUTH (DOWN)" 

"E= EAST (RIGHT)" 
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0670 PRINT "W= WEST (LEFT)" 

0680 PRINT "R = REST (STAND STILL)" 

0690 PRINT "YOUR TORCH ONLY ILLUMINATES" 

0700 PRINT "AN AREA OF APROX. 10' BY 10'." 

0710 PRINT "WATCH OUT FOR THE WIND!" 

0720 PRINT "WHEN READY HIT RETURN."; 

0730 INPUT Z$ 

07U0 GOTO 1110 

0750 IF V1=1 THEN IF H1=X9 THEN GOSUB 130 

0760 IF V1 = 1 THEN IF H10X9 THEN GOSUB 150 

0770 IF V 1 > 1 THEN 800 

0780 GOTO 810 

0790 GOTO 810 

0800 IF INT(D( V1-1 ,H1 ) )<2 THEN 830 

0810 GOSUB 150 

0820 GOTO 810 

0830 GOSUB 130 

0810 LET X8=1 

0850 IF H 1 = 1 THEN X8=2 

0860 IF H 1 > 1 THEN 890 

0870 GOSUB 170 

0880 GOTO 920 

0890 IF D(V1,H1-1)=1 THEN X8=2 

0900 IF D(V1,H1-1)=3 THEN X8=2 

0910 GOSUB 170 

0920 ON INT(D( V1 ,H1 ) ) ♦ 1 GOTO 1 30 , 1 30 , 150 , 150 

0930 PRINT 

09M0 PRINT "WHAT DIRECTION"; 

0950 INPUT Z$ 

0960 FOR Z 1 = 1 TO 8 

0970 IF Z$="N" THEN 1030 

0980 IF Z$="S" THEN 1050 

0990 IF Z$="E" THEN 1070 

1000 IF Z$="W" THEN 1090 

1010 IF Z$="R" THEN 1100 

1020 GOTO 910 

1030 LET V2=-1 

1010 RETURN 

1050 LET V2=1 

1060 RETURN 

1070 LET H2=1 

1080 RETURN 

1090 LET H2=-1 

1100 RETURN 

1110 REM THIS IS START OF DISPLAY 

1120 GOSUB 130 

1130 LET V2=0 

1110 LET H2=0 

1 150 GOSUB 2210 

1160 GOSUB 750 

1170 GOSUB 930 

1180 IF V1*V2<1 THEN 2070 

1 190 IF V1+V2>10 THEN 1500 

1200 IF H1*H2<1 THEN 1 370 

1210 IF HWH2>10 THEN 1370 

1220 IF V2O0 THEN 1290 

1230 IF H2O0 THEN 1330 

1210 GOSUB 1710 

1250 IF H3<*0 THEN 1650 

1260 GOSUB 2120 

30 . . . _'68' Micro Journal 



1270 
1280 
1290 
1300 
1310 
1320 
1330 
1310 
1350 
1360 
1370 
1380 
1390 
1100 

ino 

1420 
1130 
1110 
1150 
1160 
1170 
1180 
1190 
1500 
1510 
1520 
1530 
1510 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1610 
1650 
1660 
1670 
1680 

1690 
1700 
1710 
1720 
1730 
1710 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1810 
1850 
1860 



THE ENTRANCE" 
SURE YOU WANT 



THEN 1590 



GOSUB 2090 

GOTO 1110 

LET X6=0:IF V2 = -1 THEN X6=-1 

IF INT(D( V1+X6 ,H1 ) )>=2 THEN 

LET V1=V1+V2 

GOTO 1210 

LET X6=0:IF H2=-1 THEN X6=-1 

IF INT(D( V1 ,H1+X6) )<>0 THEN 

LET HUHUH2 

GOTO 1210 

PRINT "HIT YOUR HEAD ON WALL" 

PRINT "HEALTH SUFFERS '-1'." 

LET H3=H3-1 

GOSUB 2180 

GOTO 1210 

PRINT "THIS IS 

PRINT "ARE YOU 

PRINT "LEAVE"; 

INPUT Z$ 

IF LEFT$(Z$, 1 ) = 

LET V2 = 

GOSUB 930 

GOTO 1180 

IF INT(D( VI ,H1 ) )<>3 THEN IF 

PRINT "THIS IS THE EXIT." 

PRINT "ARE YOU SURE YOU 

PRINT "LEAVE"; 

INPUT Z% 

IF LEFT$(Z$, 1 )="Y" THEN 

LET V2=0 

GOSUB 930 

GOTO 1180 

REM 

IF E>0 THEN 

PRINT "CHI 

GOSUB 2210 

PRINT "BETTER 

GOTO 2100 

REM 

GOSUB 2210 

PRINT 

PRINT "TOO BAD! I ! ! ! ! I I" 

'YOU ARE DEAD I I I I" 



1370 



IF INT(D( VI ,H1+X6))<>2 THEN 1370 



TO 



INT(D( VI ,H1 ) )<>1THEN 1370 



WANT TO" 



2300 



1620 
C K 



E N I I 



LUCK NEXT TIMEl 



100 



I,,,,I,I:REM 
R" THEN 1770 
OX. 08 THEN 1790 



SURPRISE! A "; 

NT( RND(0)«5«-1 ) 
)$(R) 

'WANTS TO FIGHT." 
'DO YOU WANT TO FIGHT" ; 

\% 

•$(Z$,1)="Y" THEN I960 
YOU ARE RUNNING AWAY AND" 



THE NONPRINTING CHAR. ARE CNTRL D 



PRINT 

LET M=0 

GOTO 21( 

DATA GARGOYLE, 2, DRAGON, 1 .WARLOCK, 3 .TROLL, 1 , TAX COLLECTOR, 2 

DATA I, 

IF Z%: 

IF RND(i 

RETURN 

IF RNDC0X.2 THEN 1790 

RETURN 

PRINT 

LET R;II 

PRINT 0! 

PRINT 

PRINT 

INPUT Z\ 

IF LEFT! 

PRINT 
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1870 
1880 
1890 
1900 
1910 
1920 
1930 
1910 
1950 
I960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2010 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
2110 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2210 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
23^0 
2350 
2360 
2370 
2380 
2390 
2100 
2110 
2120 
2130 
2110 
2150 
2160 
2170 



PRINT "GET LOST OR KILLED 

LET V1=INT(RND(0)*10*1 ) 

LET H1 = INT(RND(0)M0*1 ) 

LET H2=0 

LET V2=0 

LET H3=H3-1 

IF RNDC0X.077 THEN H3 = 

GOSUB 2180 

RETURN 

REM 

PRINT " 

PRINT " 

IF RND( 

PRINT " 

LET H3= 

RETURN 

PRINT " 

PRINT " 

LET H3= 

RETURN 

IF H1<> 

GOTO 11 

IF H3>9 

LET H3= 

RETURN 

IF RND( 

RETURN 

PRINT » 

PRINT " 

LET L = I 

IF RND( 

PRINT L 

LET M=M 

GOSUB 2 

RETURN 

LET L=I 

GOTO 21 

PRINT " 

PRINT H 

PRINT " 

PRINT 

RETURN 

REM 

GOSUB 2 

IF M>10 

IF M>10 

PRINT " 

GOTO 21 

PRINT " 

PRINT " 

GOTO 21 

PRINT " 

PRINT " 

PRINT " 

INPUT Z 

IF LEFT 

IF LEFT 

GOTO 21 

LET H3= 

GOTO 59 

END 



BE BRAVE - THE FIGHT IS ON - " 

-__ — ____ — __ — ______..-_--._.-- — --__" 

0)>.97 THEN 2030 

YOU WON!! BUT HAVE SOME DAMAGE." 

H3-0(R) 

YOU LOST. HEAVY DAMAGE TO YOUR" 
HEALTH. YOU LOST " ; ( ( R ) *2 ) ; " POI NTS . " 
H3-(0(R) # 2) 

X9 THEN 1370 
20 

THEN RETURN 
H3+.25 

0)>.8 THEN 2110 

SURPRISE!! YOU FOUND GOLD!" 
WORTH n ; 

NT(RND(0)M00*10) 
0)>.92 THEN 2220 

♦ L 
180 

NT(RND(0)M0E1*1E3) 

80 

YOUR HEALTH IS"; 

3 

YOUR CASH VALUE IS *";M 



210 

000 

00 

CHI 

00 

GOO 

PAY 

00 

NOT 

LIV 

DO 

t 

$(Z 

$(Z 

00 

10 





THEN 2350 
THEN 2380 
CKENI I ! I I I" 

D JOB! NOW GO PUT A DOWN" 
MENT ON A CASTLE." 

MUCH $ BUT AT LEAST YOU" 
ED." 
YOU WANT TO TRY AGAIN."; 

$, 1 ) = "Y" THEN 2150 
$, 1 )i"N" THEN END 



2180 FOR 2=1 TO 100 
2190 NEXT Z 
2500 RETURN 
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A STAFF REVIEW 
The 68 Micro Journal Lab 

One item often needed, but not always 
available is a way to point-to-point 
trouble shoot a SS 50 bus, and -not bend or 
disturb other system boards. Due to the 
close spacing (especially a well filled 
system) of the slots of the motherboard it 
is next to impossible to get scope or 
meter leads to the proper place, without 
disturbing something else. 

The 68 Micro Journal lab received, for 
evaluation, a set of Transition 
Enterprises, Inc.'s 'Extender Boards'. 
The set is two boards, one 30 pin and the 
other 20 pin. This allows the extension 
of either set of slots, by using both on 
the 50 pin slots. They come complete with 
a full set of connectors, both top and 
bottom, allowing simple construction and 
use. Total construction time: 20 minutes. 

The quality of the fiberglass boards is 
excellent and the foil runs wide (low 
noise). The connectors are 'Molex' (TM) as 
used on other SS 50 bus devices. The 
price is certainly right; $19.95. They 
may be ordered from; 

Transition Enterprises, Inc. Star Route 
Box 241, Buckeye, AZ, 85326 



was described in Issue Number One. 

If the user calls the appended file, 
NEWDISK2.CMD, and retains NEWDISK1.CMD, he 
will indeed have the best of both worlds. 

With NEWDISK1.CMD he can create a 
disk which may be booted by any SWTPC 
MF-68 user. Conversely, with 
NEWDISK2.CMD, he will be able to create a 
disk which may be booted by any BFD-68 
user. 

It should be noted that after the new 
disk is initialized with either 
NEWDISKl.CMD or NEWDISK2.CMD, the DOS. SYS 
file must be copied to the disk and LINKed 
to the boot with the LINK utility. Of 
course, if you have a special program that 
does not require the DOS. SYS for 
operation, you could LINK to it instead. 
Use your imagination. 

It should be noted that I placed the 
boot loader I/O buffer in low memory so 
that it would not write over the first 
part of the mini-FLEX system which starts 
at S7080. 

One final thought. Users who wish to 
use my BFD to FLEX conversions on a system 
that utilizes interrupts will want to set 
the interrupt flag when they enter a disk 
operation. I did not do this in the 
source in the original listing. Here is a 
listing of the READ routine patch as 
adopted for use with interrupts. 



A 68 Micro Journal lab rating of AAA. 

Rating scale: 
AAA - Excellent 
AA - Cood 

A - Fair (could be better but works) 

P - Poor and may not work 

X - Not recommended for children (or 
anything else) 



PAC Dale I PucKetl 
163 Fatm Acre Rd. 
Syiacma. NY 13210 



BOOT (FLEX-BFD) 



Here is a routine which can be used 
by readers using the BFD to FLEX 
conversion detailed in Issue Number One of 
'68' Micro Journal. It allows the user to 
boot directly into the FLEX operating 
system from a cold start by typing, "J 
8020." 

To make this addition it is only 
necessary to assemble the source code 
accompanying this article. After it is 
assembled the resulting binary file must 
be appended to the NEWDISKl.CMD file that 



READ 


NOP 

SEI 






STA 


A BFDTRG 




STA 


B BFDSRG 




STX 


BFDSBU 




JSR 


BFDRED 




NOP 






CLI 






RTS 





The write and verify routine also 
require this change for operation with 
interrupts. Readers will find complete 
details to the conversion in '68' Micro 
Journal, Issue Number One. I hope you 
find the new boot routines a helpful 
addition to my original conversion. 



NAM 



BOOT 



* by Dale L. Puckett 

* Chief Photojournalist 

* U. S. Coast Guard 

* 163 Farm Acre Road 

* Syracuse, New York 13210 

* April 15, 1979 
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« ' The following routines can be 

* assembled. Then, the resulting binary 

* file may be appended to 

* the NEWDISK1.CMD prepared as suggested 

* on Page 15 of Issue Number one of 

* '68' Micro Journal. 

* The new file created by the append can be called NEWDISK2.CMD. 

* If this is done then, NEWDISK1.CMD will create a 

* disk which can be booted by an MF-68 system. 

* NEWDISK2.CMD however, will create a disk which 

* can be booted by any BPD-68 system. 

* To boot a disk initialized by NEWDISK2.CMD 

* a BPD-68 user needs only to type J 8020. 

* This will bring up the FLEX system. 



0534 










ORG 




$534 




0534 


8E 


A0 


79 


BOOT 


LDS 




#$A079 




0537 


20 


38 






BRA 




START 




0539 


00 








FCB 




0,2 




053A 


02 
















053B 


CE 


10 


C8 


READ 


LDX 




#S10C8 


place buffer in low memory 


053E 


B6 


70 


05 




LDA 


A 


$7005 


get track number 


0541 


F6 


70 


06 




LDA 


B 


$7006 


and Sector Number 


0544 


FF 


A0 


7E 


READl 


STX 




$A07E 


point to buffer 


0547 


B7 


A0 


7C 




STA 


A 


$A07C 


and track 


054A 


F7 


A0 


7D 




STA 


B 


$A07D 


and sector 


054D 


BO 


80 


29 




JSR 




$8029 


BFD-68 Read routine 


0550 


26 


E2 






BNE 




BOOT 


If errors keep trying 


0552 


CE 


10 


CC 




LDX 




#$10CC 




0555 


FF 


70 


0B 


READ 3 


STX 




$700B 




0558 


39 








RTS 








0559 


FE 


70 


0B 


READ4 


LDX 




$700B 




055C 


8C 


11 


48 




CPX 




#$1148 


end of buffer? 


055F 


27 


05 






BEQ 




READ 5 


yes, go 


0561 


A6 


00 






LDA 


A 


0,X 


else, get next character 


0563 


08 








INX 






and bump pointer 


0564 


20 


EF 






BRA 




READ 3 


and loop till done 


0566 


CE 


10 


C8 


READ5 


LDX 




#$10C8 


buffer 


0569 


A6 


00 






I .DA 


A 


0,X 


get new track pointer 


056B 


E6 


01 






LDA 


B 


l.X 


and new sector pointer 


056D 


8D 


D5 






BSR 




READl 


and go read it 


056F 


20 


E8 






BRA 




READ4 




0571 


BD 


80 


38 


START 


JSR 




$8038 


BFD-68 Restore 


0574 


8D 


C5 






BSR 




READ 


go read first sector in 


0576 


8D 


El 




READ6 


BSR 




READ4 




0578 


81 


02 






CMP 


A 


#$02 


start of file? 


057A 


27 


13 






BEQ 




READ7 


yes 


057C 


81 


16 






CMP 


A 


#$16 


reached transfer address? 


057E 


26 


F6 






BNE 




READ6 


no keep reading 


0580 


8D 


D7 






BSR 




READ4 


get transfer address from buffer 


0582 


B7 


70 


07 




STA 


A 


$7007 


and store it 


0585 


8D 


D2 






BSR 




READ4 


get rest of it 


0587 


B7 


70 


08 




STA 


A 


$7008 


and store it 


058A 


FE 


70 


07 




LDX 




$7007 


point to it 
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058D 


6E 


00 




JMP 




0,X 


058F 


8D 


C8 


READ7 


BSR 




READ4 


0591 


36 






PSH 


A 




0592 


8D 


C5 




BSR 




READ4 


0594 


33 






PUL 


B 




0595 


B7 


70 


OA 


STA 


A 


$700A 


0598 


F7 


70 


09 


STA 


B 


$7009 


059B 


8D 


BC 




BSR 




READ4 


059D 


16 






TAB 






059E 


27 


D6 




BEQ 




READ6 


05A0 


37 




READ8 


PSH 


B 




05A1 


8D 


B6 




BSR 




RERD4 


05A3 


33 






PUL 


B 




05A4 


FE 


70 


09 


LDX 




$7009 


05A7 


A7 


00 




STA 


A 


0,X 


05A9 


08 






INX 






05AA 


FF 


70 


09 


STX 




$7009 


05 AD 


5A 






DEC 


B 




05AE 


26 


F0 




BNE 




READ8 


05B0 


20 


C4 




BRA 




READ6 



and go execute it (FLEX) 



NO ERROR (S) DETECTED 



END 



SYMBOL TABLE: 
















BOOT 0534 READ 


053B 


READ1 


0544 


READ3 


0555 


RERD4 


0559 


READS 0566 READ6 


0576 


READ7 


058F 


READ8 


05A0 


START 


0571 



FREEZE DISPLAY — SSB 



Dan Johnson 
Sotar Computer Systems 
7655 SW Cedarcresl ST. 
Po Hand, OR 97223 



n 



HfcRE IS THE LISTING OF A USEFUL PATCH TO THE SMOKE SIGN 
DISK SYSTEM. IT CAUSES A CONTROL/5 TYPED ON THE CONSOLE KEYBOA 
THE CONSOLE DISPLAY UNTIL EITHER A CONTROL/0 OR A CONTROL/C IS 
THE CONTROL/0 WILL RESUME THE DISPLAY WHERE IT LEFT OFF AND THE 
WILL ABORT THE PROGRAM GENERATING THE DISPLAY AND RETURN TO THE 
SYSTEM. IF YOU ARE A NEW USER OF THE SSB DISK SYSTEM* YOU MAY 
HOW TO STOP THE DIRECTORY LISTING FROM GOING DF THE TERMINAL SC 
YOU CAN READ IT. THIS PATCH WILL SOLVE THAT PROBLEM* AND IT Wl 
FOR ALL TRANSIENTS OR OTHER PROGRAMS* (BASIC FOR EXAMPLE) THAT 
CONSOLE I/O THROUGH THE OPERATING SYSTEM. 

NOT}" IN THE ASSEMBLY LISTING THAT THE PATCH ASSUMES THE 
FDR THE CONSOLE IS AN AC I A STARTING AT *U(J(>4 (PORT i) ANN THE R 
CHARACTER OUTPUT ROUTINE STARTS AT iElDl. IF THESE ADDRESSES A 
THEY WILL HAVE TO BE CHANGED. THE PATCH WILL NOT WORK iJITH MJ.K 
OTHER MONITOR THAT USES A PIA FUR THE CONTROL PORT. 

THE QUICKEST WAY TO INSTALL THE PATCH IS TO TYPE IN THE 
FROM THE LISTING USING THE ROM MONITOR MEMORY CHANGE FUNCTION.. 
THE CODE WITH THE UGS68 "SAVE" CGMMANM AND "APPENJl" IT TO THE ( 
E.G. SAVE r PAT 1. , 7786 , 72B8<»cET> 

SAVE r PAT.? . 67C0 » &7F3<RF.T> 

APPEND. PAT 1»D0S6EJ. 4 2<KKT> 

APPEND » PATS » V0S6& . 4.?< KE i > 



AL BROADCASTING 
RD TO FREEZE 
TYPED. 

CONTROL/C 

OPERATING 
BE WONDERING 
REEN BEFORE 
l.L ALSO WORK 
VECTOR THEIR 

CONTROL PORT 
OM MONITOR 
RE NOT CORRECT 
BUG OR ANY 

HEX COME 
THEN SAVE 
PEf.ATlNC OYSf'»fcrt. 



3J 



NAM 
WITH 



PATCB1 
Wl'sBO 
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7283 

7286 
KITH. 

H005 

00 t 3 

00 1 1 
0o<>3 

72*6 ?fc67fc:0 
67C0 



<■>"'<•; o 


J 6 


* /CI 


BAFUU 


*>l'.4 


as 


67CJI 


R10A 


A7C7 


.?«;•. A 



»/T9 3£ 

c 7C'< B..iHt'.'04 

67D0 66aoor; 

671)3 310.'* 

67M5 2606 



67D7 32 

67I)B 31 

A7D9 31 

A7DA /E72B3 

67Iift B113 

67HF 2611 



A 

5 
/. 
V 

» 

9 

IB 

.11 
12 

1 3 
11 
15 
16 
17 
!.H 
l." 
SO 
21 
22 
23 
?4 
1'S 
24 
27 
2*1 

2 V 
30 
.*> 
.53 
\A 

3 'I 

is 

.</• 

v." : 

W; * 
??: 

40, 
<u ; 
42; 
>?:<: 
■u; 

<6i 

47: 
<is: 
■19: 
j>o: 

51 1 
S2: 

93 i 

54: 
ss : 

56 : 



* PATCH FOR Si&H DT'rK SVSTCT TQ ALLOW "fe v fTOP TERMINAL OUT 
.«"() TO RESTART H. AND X ) EXIT "» tJ JrtMMJft f E H6 BWtlift fWiHff 
*By! Man Joiin<>oi< 

* Solar Catnruts>r Sue-isms Carr, 

* 7655 S,U. Ceils it ••«!«:. fc St. 

* poi-+.iajp.j mi 97j?z 



ZUARM5 EQU 

OUTEEE EGW 

CJU'fCHAR EflU 

AC J ASH EQU 

AC1AUR E&tl 

CNfRL'S tan 

CMTRLO f.Ri.1 

t:N tri t; fhij 
rjftii 

IMF' 
I) KG 



•7283 

$72!J6 

»fl004 
• 0005 

1. I. 3 

%i ; 
*:< 

Gl'TEEE 

NfcWUII I 
*6 7l<) 



•THESE AlU'RESSEt MAY 

*«•£■ ai i.f fire-: shaim . . . 

*PEHN01NC ON YOI.IH H r H > M M 



f'fclCH IN NfcW OU J'Ptir VECTOR 



*A»- TF.R POINTING EACH LINE.. 00 CHECK THE CONSOLS KLVIJOARD 

Nfwuur f-sH ft !»awe CHritvAcm; 

J9R QHTCHAtf OUTPUT CHrtFf, V41 CONSDL.f. 

Pill A 

CW A **0A WAS IT A Lr*# 

BNF. r#0**€ IF NOT THEM RTS 

* s-:i. S'T. .PAL L THRU 

♦cut ck m n'UAftii Til sfE i¥ a ch*r. has fjeen r** 1 *?.,! 

* a fc'j, , . !-!i iff li S ' h X S 'JR I.) 
*TV ♦01 i -JEN HIST inMiiKE IT 



Kf'YCHK P-SH A 
i £* A 
ASK A 

*i:c 

LDA A 
CMP A 
BNF. 



ftO?A*B 

KCVDUT 

AC I AM 
♦ CMTFVl C 

hi ¥ I 



GAVE REsG 

CHECK ACT-'i .iifl! 1 ' 1 

Tf M«ffHJL^ TYF'F.H 

u£ r Jirt) (. 
IS Tr rt i, 



♦ EXIT TO DPESATIWO S'YSTFM 

KE'CEXIT Pi.ll. A RESTORE REG 

jnj; 

INS f IX Sl(vt F> PI'DNrhR 

.imp zuarm!;; uri to aoeffAl'fXi tiV::"f i 



KEY1 



CMP A 
BNE 



♦CMTRl S 
KEYHLlT 



U«S i r A "6 

IP NOT THEN IGNORE 



67E1 K6B004 
67E4 47 
67E5 24PA 
67E7 B68005 
67EA 8103 
67EC 27E9 
67EE 8111 
67F0 26Ef" 

67F2 32 
67F3 39 



57! 
58: 
59! 
60! 
61 J 

ft t. I 

63! 
64! 
65 • 
66} 
67: 
68! 
69! 
70! 



«W*1T FOR A "Q OR A "C TO BE TYPlltl 



KEYUACr LDA A 
ASK A 
BCC 
L1A A 
IJMP A 
BEQ 
CMP A 
BNE 



KEYOtIT 
NOPE 



PIJU 

RTS 
END 



ACIASR 

kf;yuiai:t 

ACIADR 
#CNTRLC 
KEYEXIT 
♦CNTRLQ 
KEY WAIT 



CHECK STATUK AGAIN 

WAIT FOR SCMEIH1NB 

GET CHAR, 

IS IT A "C * 

IF SO. ..GO EXIT 

IS IT A "0 '*. 

IF NOT 00 TRY AHA1N 

RESTORE REO 
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The program listing is written for the SWTPCo MP-68 system, 
but may be used with other systems with a small amount of 
modification. A paper tape reader is connected to port B of 
a parallel interface in Slot 2 of the motherboard. The PIA 
is programmed for a low to high transition for the 
"handshaking" lines. 

When the paper tape reader senses a sprocket hole, the small 
critter, a flip-flop or one-shot will send a low to high 
pulse to CB1 of the board. When the program reads the data 
it will cause the PIA to send back an acknowledge signal on 
CB2 to clear the reader and get ready for the next 
character. This signal may be ignored by some readers such 
as the RAECO and PROKO readers. I use the Oliver Audio 
Reader, i.e. rarely now that everyone has gone from the 
paper tape stage t o c assette and disk systems, and wired CB1 
to RDA and CB2 to Actf. 

If an error occurs during the reading of the tape, a 
software interrupt will occur at location $2FC6. This will 
stop the program, the user can back up the tape and try 
again the last few records. If no error occurs, then 
control will return to the monitor when an S9 record is 
encountered. 

The program is relocatable, since relative branch 
instructions were used for subroutine calls, and scratch 
locations are in the scratch area of the system monitor. 

The program is years old, but may still be of use to a few 
readers and I still have a large quantity of paper tape 
stored somewhere, but saved everything to disk (PERCOM) and 
have not had use for them in some time. 

Any questions or problems should be directed to Santa Claus, 
North Pole, Zip 00001. 



1 

2 

3 

4 

3 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

14 

17 

IB 

19 

20 



* 

A010 CKSH 
A011 BYTECT 
A012 XHI 
A013 XLOU 
EODO HUMBUG 
BOOB PIACTL 
600A PIADAT 



PAPER TAPE READER PROGRAM 



URITTEN FOR THE SUTPCO M6800 SYSTEM 



THE PROGRAM IS RELOCATABLE AND AS SHOUN RESIDES 



IN THE UPPER PORTION OF 
IS IN THE MC6810 IN THE 

DR. CHUCK ADAMS 



12K. ALL SCRATCH AREA 
SYSTEM LOCATED $AO0O-fA07F. 



EQU IA010 CHECKSUM SCRATCH 

EQU «A011 BYTE COUNT PER RECORD 

EQU *A012 HIGH ORDER BYTE FOR ADDRESS GENERATION 

EQU *A013 LOU ORDER BYTE FOR ADDRESS GENERATION 

EQU «E0D0 MONITOR ENTRY POINT 

EQU tBOOB PARALLEL PORT AT 2 UITH READER 

EQU I800A DATA REGISTER FOR PIA 
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21 

22 2F8t 

23 

24 2F8E 86 

25 2F90 B7 

26 2F93 B7 

27 2F96 8D 

28 2F98 81 

29 2F9A 26 

30 2F9C BD 

31 2F9E 81 

32 2FA0 26 

33 2FA2 7E 
34 

35 2FA5 81 

36 2FA7 26 

37 2FA9 7F 

38 2FAC 81 

39 2FAE 80 

40 2FB0 87 
41 

42 

43 

44 2FB3 8D 

45 

46 

47 

48 2FB5 8D 

49 2FB7 7A 

50 2FBA 27 

51 2FBC A7 

52 21 BE 08 

53 2FBF 20 

54 2FC1 7C 

55 2FC4 27 

56 2FC6 3F 
57 

58 2FC7 B6 

59 2FCA 2A 

60 2FCC B6 

61 2FCF 84 

62 2FD1 B7 

63 2FD4 39 
64 

65 2FD5 8D 

66 2FD7 B7 

67 2FDA 8D 

68 2FDC B7 

69 2FDF FE 

70 2FE2 39 

n 

72 2FE3 8D 

73 2FE5 48 

74 2FE6 48 

75 2FE7 48 

76 2FE8 48 

77 2FE9 16 

78 2FEA 8D 

79 2FEC IB 

80 2FED 16 



ORG 



♦2F8E GOOD START ADR FOR 12K SYSTEM 



2E 

80»B 

800A 

2F 

53 

FA 

29 

39 

03 

EODO 

31 

ED 

A010 

35 

02 

A011 



20 



2C 

A011 
05 

00 



START 



LOAD 



L0AD1 



+ 
* 

* 
L0AD2 



F4 

A010 L0AD3 

DO 



800B INCH 

FB 

800A 

7F 

800A 



OC 

A012 

07 

A013 

A012 



10 



BADDR 



BYTE 



LDAA «$2E CONTROL BYTE FOR PIA 

STAA PIACTL STORE IN CONTROL REG 

STAA PIADAT STORE INTO DATA REG TO CLR IT 

BSR INCH GET CHAR FROM READER 

CMPA JTS LOOKING FOR 'S' FOR START OF RECORD 

BNE LOAD 60 BACK FOR NEXT CRITTER 

BSR INCH READ NEXT CHAR AFTER '$' 

CMPA #'9 SEE IF END OF FILE 

BNE L0AD1 NO. GO ON 

JMP HUMBUG END OF FILE. RETURN TO MONITOR 

SEE IF DATA RECORD 

NOT DATA RECORD. MUST BE GARBAGE 

CLR CHECKSUM TO GET SERIOUS 

READ IN BYTE COUNT 

SUBTRACT TUO FOR COUNT 



CMPA «'1 

BNE LOAD 

CLR CKSM 

BSR BYTE 

SUBA #2 

STAA BYTECT STORE REMAINING COUNT 



CREATE ADDRESS FROM NEXT FOUR CHARACTERS 

BSR BADDR 

STORE DATA INTO MEMORY AS UE GO 

BSR BYTE GET DATA 

DEC BYTECT SHOU UE GOT IT 

BEQ L0AD3 UE NOU HAVE CKSUM IF ZERO COUNT 

STAA O.X STORE DATA IN MEMORY 

INX POINT TO NEXT LOCATION 

BRA L0AD2 GET MORE DATA 

INC CKSM MAKE TUO'S COMPLEMENT 

BEQ LOAD CHECKS OK. GO GET NEXT REC0R1 

SUI NO! SORRY BUT ERROR OCCURRED. 

LDAA PIACTL GET STATUS OF READER 

BPL INCH UAIT UNTIL READER SENSES NEU CHARACTER 

LDAA PIADAT GET BYTE FROM READER 

ANDA H$7F REMOVE HIGH ORDER BIT. MAY BE STUPIB PARITY 

STAA PIADAT RESET PIA (THIS UORKS UELL) 

RTS 



09 



BSR BYTE 

STAA XHI 

BSR BYTE 

STAA XLOU 
LDX 
RTS 

BSR 

ASLA 

ASLA 

ASLA 

ASLA 

TAB 

BSR 

ABA 

TAB 



GET BYTE 

GOT HIGH ORDER BYTE OF ADDRESS 
GET BYTE 

SAVE LOU ORDER BYTE OF ADDRESS 
XHI LOAD ALL 16 BITS INTO IX REGISTER 



INHEX GET HEX CHARACTER 



NOU HAVE 4 BITS IN HIGH ORDER NYBBLE 
SAVE AUHILE IN B REGISTER 
INHEX GET NEXT HEX CHARACTER 
CREATE COMPLETE BYTE 
CLONE IN REGISTER B 
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81 2FEE 


FB 


A010 


ABBB 


CKSH 


ADD TO 


CHKKSUN 




82 2FF7 


F7 


A01 





STAB 


CKSH 


UPDATE 


CHECKSUM 




83 2FF4 


39 






RTS 










84 






* 












85 2FF5 


SD 


BO 


INHEX 


BSR 


INCH 


GET CHARACTER FROM READER 


86 2FF7 


80 


30 




SUBA 


M30 


STRIP I 


)FF HIGH 1 


]RBER NYBBLE 


87 2FF9 


81 


09 




CMPA 


H$09 


SEE IF 


UAS A-F 




88 2FFB 


2F 


02 




BLE 


IN1HG 


NO, GO 


BACK 




89 2FFD 


80 


07 




SUBA 


«7 


WAS A-l 


F. FIXIT 


RIGHT. 


90 2FFF 


39 




INI HG 


i RTS 










91 






* 












92 






* 


THAT' 


S ALL FOLKS 
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ENI 










SYMBOL TABLE 
















CKSN A010 




BVTECT 


A011 


XHI 


A012 


XLOU 


A013 


HUMBUG EODO 




P1ACTL 


800* 


PIADAT 


aooA 


START 


2F8E 


LOAD 2F96 




L0AD1 


2FA5 


L0AD2 


2FB5 


L0AI3 


2FC1 


INCH 2FC7 




BADDR 


2FB5 


BYTE 


2FE3 


INHEX 


2FF'5 


IN1HG 2FFF 

















ERRORS 



The bottoming, one exXKacted faom: FLEX NEWSLETTER Ho. 1, Technical Syitemt 
ContHLttoAt* , Inc., PO Box 2574, Wei* Lafayette., Indiana. 47906, Copy/light (c) 1979. 
Voted Februuuiy J 979. 

FULL DIRECTORY PROBLEM IN MINI FLEX 



There is a problem in mini FLEX (the version supplied with the MF-68 
disk system from SWTPc) which does not occur often, but is not too 
pleasant when it does. It occurs when you have filled the directory of 
a disk (exactly 75 files), then delete one or more of those files, and 
then try to write another file to the disk. This will crash the 
directory on the disk and thus cause you to lose data; Unfortunately, 
there is no simple patch to fix this problem. The best solution is to 
just be aware of it and not get into such a situation. If you get a 
directory full error, be SURE not to attempt to delete a file. The disk 
will be OK to use for reading files, but cannot be used for any other 
purpose since trying to write to it will give you a directory full error 
and trying to delete a file will give you the fatal opportunity to write 
to the disk which will cause the directory to be lost. It's best not to 
perform a delete at all. As stated, if you only wish to read from the 
disk, there is no problem and the disk could be used for such purposes 
forever. However, to make things safer (so that you don't 
unintentionally perform a delete and write) you should copy the files 
from the disk to two other disks (so that their directories aren't full) 
and then reformat or "NEWDISK" the one with the full directory. If you 
don't need all the files on the disk with a full directory, simply copy 
those you want to a single other disk and then reformat the filled one. 

This problem does not exist in FLEX 1.0 or FLEX 2.0. In fact, the 
number of files in these versions is not limited to 75. 
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Replace the instruction at $7635 (JSR OUTADR) 

with the following instructions 

JSR OUTHEX 

I NX 

JSR DUTHEX 



The POEL Utility - Volume 5, Number 2 

This problem is in both versions of the utilities and the fix is the 
same for each: 

Change the instruction at S029B in the mini FLEX 
version or $A29E in the 8" FLEX 1.0 version 
from BEQ DDDLR5 
to BNE DDDLR6 

The FIND Utility - Volume 1, Number 1 

The find utility does not always perform an FMS close function before 
returning to warm start. This can cause problems if using the FIND 
utility in an EXEC command. The problem is in both the mini FLEX and 8" 
FLEX 1.0 versions. The fixes are not the same in both cases. First for 
the mini FLEX version: 

Change the instruction at S01B7 from FIND35 JMP WARMS 
to FIND35 JMP ERR0R8 

For the large disk FLEX 1.0: 

Change the instruction at SA17F from JMP WARMS 

to JMP FIND35 

Then change the instruction at SA195 

from FIND35 JMP WARMS 

to FIND35 JSR FMSCLS 

followed by JMP WARMS 



The MAP Utility - Volume 3, Number 1 

The mini FLEX version of MAP has a bug which can be fixed by replacing 
the routine called "PRTEND" at S01F5 thru $0201 with the following: 

GET ADDRESS 

DECREMENT IT 

SAVE BACK OUT 

RET PREVIOUS ADDRESS 

OUTPUT IT 



PRTEND LDX 


PREV 


DEX 




STX 


PREV 


LDX 


#PREV 


JSR 


DUTHEX 


I NX 




JSR 


OUTHEX 


RTS 





This change has already been made in the 8" FLEX 1.0 version of MAP. 
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NEW PRODUCTS 



PiTt.COM INTRODUCES CKSERAL LEDGER SYSTEM SOFTWARE 

Garland, Texas • April 9, 1979 - Harold Mooch, president of 
Per com OiCJ Company, announced here today the release and Immediate 
ava I Ubi I ity of an account I nl/bookkooplnf software *y»ten tor 6800 
mlcrocofflput era . 

Called Parcoin General Leulfler System , the program! run on computers 
lifting the company'* LFft-400 dual-drive ttlni-dWk storage device. 

Hdvch said the General Ledger System, together kith bariUarc, 
give smal I*tiujines9 owners a bunncii computer system comparable to 
IPH's 5110 far less than one-third the cost. 

Developed by a Certified Public Accountant, the Percon GI.S ■ay- 
be operated by a secretary vlth little or no knowledge of bookkeeping . 
Moreover, the business owner need* only a •superficial knowledge of 
conputort . 

Mcfliuros of the Pcreom Central Lodger System Include: 

*t!_f ftcient i^- ii- .Fiji Account balances arc updated immediately 
in real tine •• t line- consuming sorting/posting data processing 
Is unnecessary. Flnaneinl statements may be printed immediately 
after journal entries. 

* *A*$}3P'X l ^J f: : Llscr * e ' ffCts *f*J assigns own account numbers, 
and formats financial itateacnta t»l lored la first's particular 
roqul reatents , 

* ^*yte-w» ! Th« GLS programs guide the cp*roior throughout 
an application by prompting for user response with characters 
and non- technical question?:. 
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i HJumraMiiiTwsMtFtjrtiiraitMiaFjt fk.i«i muti-mii u»juti NUi« «ll iM •tCtiiua nin* t* mui iajh mj.ik uni»u 
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« *riis affront M*L-i*t ««i>iit>Mas 
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(^ tamix 



lUF AIFI llm *l*CI * CHIUQO HUHOrR «0*H * ijl^ «|FHig * fW» RI0NI40H 



■ Error dclocclon l TKe CIS sllnals the operator if journal on* 
cries do not Ealancp. Invalid account nuabcrs arc rejected. 

- Aud i t trail : A Posting Analysis report progra-i provides a 
complete Audit trail to source documents. 

1'he I'vicoin Oneral 1-cdf.rr Sy*lcw ncconwoilntes uti to - T SU aL'countA. 
Tho General Ledger Systc- runs under Pcrcon'a Super FtAS I C i and ill* two 
progrAws together require 24F. bytes of MAH. 

Mini -iu» hardware required -- in addition to • 6800 computer And 
LI'O-400 " drive systaa ■• I) a CAT console such as the Lcar-Slegler 
AO!4- 1 und a line printer capable of printing on iH x II Inch paper. 

The Percoa. General Ledger Systoai software is supplied on ainl- 
dlsfcette along with a user's rmnuol Tor JI99.9S. 

Ilie disks and wanuol Bay be ordered by dialing I'crcoa's loll-free 
ordcrlni! nuahrr: I. 800- S37. I 592 . Orders isay bo paid by chock or 
money order, or charged to Visa or Master Charge credit accounts. 
Texas residents ttusi add St sales las.. 



LOOKUP 

A OATA MAIMAOER 

MYCKOPrwAKi: sysnrns iiAjt ANNouMcm am easy to usk bata 

FiAHAIIER FOTl USFA* OP TKI FLtX OPERAVTHC SYSTEM. LOOKUP HOIKS 
WITH DATA RFJCOPD8 HlTIt TFlC ABILITY TO ADD. OrtXTE. IIKWIRF.. 
CIFJtATC, PKIHT, UST, AVD PURTir AJrCOnDS. APPLICATIONS BAIiriE 

ruciy a 9iwpi,«: hafu: m» adobbis list to fiiiaiicial op iNvrato:iY 

HaCORD APPLICATIONS. 

OATA RSCOPD« KAY it. VAAIABLE ITMfTTII IF1TII VAniABLC :m-1Br:it 

or ritLDs . data riLna iay aiso Br i-i-itcd po^ hassivp or cokplcx 

CIIAMKrS TO RfC<^ni>!!. tlAT> ID ALSO ACCVSSInJ.?: I'BCW BAF tC POR 
HATIItlHATlCAL Ff«J PUiATIOff OR CUSTOM REPOnTIFlC. 

LOOKUP CCWES CX)VPtF>TE KITII 5 IFICil HrilDISK, RQ'EAEUCE 
HAKUAL, SAMPLE OATA FILF, SOVPCE LISTlXt, A\l> SOUSCC PBOORAH CM 
DISK. Alio XMCLUDfO Is All INDEX OF ALL 68(10 ARTICLES PACH FCL50A 
KOBBY HAOAIIMES POP IlllWimr rROM DISK. 

LOOKUP IS HPltTTI'll IN PAST A9S19ISLY LAHCUACC AMD RUNS IM A 
HIKINUrl FIFATO^Y SYSTEM. LOOKUP IS AVAILABLB FWR 519.95 t»«OM 
MYCROmiARE 9YSTDIS. P.O. BOX Ut«, ST. CFIAKLtS HISSOUPI, 63311. 
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COMMENTS ON SOME POPULAR FAIHV TALES 



SV 
Albert 5 JecVton, Ph D 



MyiJiMo 1 

Th* Z8Q a (mi WnONC h actually tM-n -< It8 ctrcln nm 10 fitch Mcf* op cot|* MxuMntl to 
I cycle lot iii«. MWKW II lo IS t [or ihl 2 «0A running #1 * MMi, & ,p tXK the M68BOG fun> 



Dm b' ih« 2 BO lo upo/ade «» 4111*4 sow deciori menu tome aerate. New dejtart •rn of the 2^0 
*i thu ta« ^u»o> do not mArHnw.NMm E»*n illheuter It ''locked' 1 JniotHt 6080 betauw ui 
fjnor wig. h» mill n««« lo toon rerraui •«, pwpi« to u« ■ c\ Hat-en* procmo* anyway beceuw the»# 
it no W»V thel ihli fiii girKikin erehUeckwa will bt carfted) ove* lo th^tJ g«w*i itvi micro 
ar«cwW*L 



SPEED COMPARISON 
TABLE I 



V*No ? 

T>w Z-BO 4 a i#M.J»|ww>jlK>n mkfOOnKMwr-rVnorgG-ll it ■ ir/wurlt of the 8080 with U8800 
'■alum addtfl la miiunvv pertonntnca II b belter Irtaft Iht 8OS0 or BQBb but de Utile ly not a 
ihtfd gtn^mlofi mttropromtyvtuch eetheMoSOft Itobe inir«jU*»ed in I97BJ 



My*N(v3 

Tm ZBO, tPJCaute ol iti tKPararJad mniructron mm. Il ttlv to OTOOt«m„WflON0 AG A IN-. I tie. ■ \»iy 
coffTtlra w.truCtlon 1b I when d ri-llcuri tfl laernenduuj* • tattwely 



Myth No .4 

Aatqu ■■*. dave^epmrsru) atppoit fiaidwer* aid uiwti hi evaiLabie tor the 2 aO-WHONG hoft* or 
ih» ,780 Mvllvs nor. lor thai n^tte*. the lno>t»endert i cupo'ler* of to called "Un.i/erul develop 
fntfll tyuemt h«vt tnwMltd tfie litroafldbul inwjni ut ceprtal required lo P<aduee eo>Q»Jaie hard 
were ami toti«are tuupwl product* tor tha Z 80. imtn dpi dan* • reetoneOle lob tn thlt in* i r the 
8080 end BOW. Out Moiorall'l luPOOft n IrulV WMUndwg with thaw breed I to* oi EXOReiMr 
yrodwi*. including by 1*1 the bet I d<tk operation: ivmm IMDOSL Fari-rcn Carrtokltw. MPL CcmiiJIer, 
Macro Rtloceiibi* Ancinbler, ric 



Myth No & 

Tha 2 flt) a applicable id a broad tpecirum oi product rwadi WROraG, WfiOrta. WRONG it fit! 
only ■ narrow nicht t»* «0P NcoHon t, iprtirifl .« UMTl to lurn 1c OOmptalHV diHerenl Proonoo for 
nlfVf htoH wohima eosl icrMlhSw prOduCll W for mora OOmplM htflh OHtOfmlrtDi NVOoalfOl Ihoiimc 
product Only Motorola h«t»ov*fl th» pioti*mo< niifchina th« smu hwdwaroindlollwor* JDpfCMon 
to * yv.Oa v«rNjly ol ntrdL irom tfuj ui^t cfc* MC600 1. Ih» iwo cMp MCWO?/ mC68«6. irie rrwitl 
chip MOeatO.MOBBAOO iMCBflBOD Itatfd yyiunn. io itM v«rv htoh pwloirrunci WC8S09 bM«rJ iy-i 
ifrrn. Ihr wm d**«<ortm*nt tytl«m, iol|w*ri and linnung *m jpplkabk to ihr *f»li(t MfJKW Kmily 
luiv llw Mniiimi j ,|^imvnli iill*ls ifw uui liNiMvUfrmM/viM?. in Ii.iIiuibI kmiv_ <hnn tormnn yfiifim 
UHtV.llfl inn»flt*l'0<triiii^ Imbl MtOOorl {IHJ~1, «il 

1 ArchitaCUrr* 

Tr<« ZBO adrjian ^ilntm*)* trmi r.jJ-i 8 Iwi l^41n» (»•• il 1..kt\4tV<^» l«J ^d^.xw AF , A' F 
ind four n»on I* BLJEHL B* C U' E' n I TN «<iir>>ruiie >p*(t»rt *» wis ..M^m*^ uwtlul 
for inwupn rteoruv iwjtlrO miHiuitB *nv,l wiifwn iwl ml hi itx& lerhniryj* ui («>«Ue> endiangt t1 
mrttlMblf) t% Mill at |h« nepif » j«lidi». iiiteri^liTt a»v u .» .*, in n oliyii IHv citm. llw ■*■ n rrurv i"inte« vt 
C«n br u«ed wUh lh# ana tninritint liui no I ihc oltwr I ho went* I toureir ot Hilrwrurni Ti\rH u«, « » 
minimum, thi PUSH A F ami PuSfl H L ititivc'->i» f'X ■ toiat ol 42 exit* In QOtiMtcl to tOcVcin 
fdt 1h* «ych*AQ* tm&UB* mcltM^lt A>IM£B00 r*«y»lm» jtl i*u<"*«He*ll* wv«! on mmrwt alhnMiiig 
wnKmriad nathng <IOcyCta*Ma u»ft Irw lh«ta wv>* anct 'rttDif opmitmni) II* wvrhfMl iDr %ar* t t-n<3 
«»rn vr*gtt moo rtaisil •nto/ruPH rt K*o»> lor lU 2 80- m>« lh»i of ih« MftaOO 

Two mat* i«o>juf t hmtt b**n atWtH, (Mfh*pt ih« m>ir*r mMyv«em«nl over tM SQB0 Hpwtmcr. all 
ruhtacu HistrMCtioros <nr of it>« *»<t«d«l typa, «nguirnto3 bytat iintaad ot th* 2 umii wiih Ihc M6800 
Tha milnan) j^n»iciKini ar« alio 1u.it »kw. r«<iiiirirM| 19 or TOcvxIrj, /lui^">w1 in liw 5 t» 7cvCtm 
01 lha M&30U InMtinq, jui in lie* larjntf Ukai horn t« cyclel (irn«n*duml IQ 70 rV*4t» Innexlr-J 
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6800 AUTOMATIC TELEPHONE DIALER 
PROGRAM $9.95 postpaid 

Have your 6800 system dial your phone • Uses 
only 5 external components • Stores 650 variable 
length phone numbers • Operates in less than IK 
bytes of mem oiy 

Includes: Paper tape in Mikbug* format and ob- 
ject code • Circuit diagram and instructions 
• Instructions for adapting to other 6800 systems 

6800 TELEPHONE ANSWERING DEVICE 

PROGRAM $4.95 postpaid 

Have your 6800 system answer your phone and 
record messages automatically. Compatible with 
any 6800 system. 

Includes: Assembly listing and object code • Cir- 
cuit diagram and instructions 

Write to: SOFTWARE EXCHANGE 
2681 PETERBORO 
W. BLOOMFIELD, MICH. 48033 

Mlkbug* ii ■ registered trademark of Motorola Inc . 
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H H H ENTERPRISES 

Baltimore Washington 
Area 

Are you tired of tin boxes that die when the 
lights blink? Are you tired of SMALL boxes 
that don't hold enough cards, making your 
4k boards worthless? Then tcy our GIMIX 
box with room enough to hold 15 50 pin 
cards. The combination of the GIMIX sys- 
tem and the SMOKE disk is unbeatable. A 
32K SYSTEM WITH DUAL 8 INCH FLOP- 
PIES IS ONLY $3527.37. This includes the 
491b. GIMIX box and power supply. A 32k 
system with dual 5 inch is only $2781.37. 
Update boxes and systems are available for 
those with a stuffed feelings. 




See GIMIX Ad. Page 3 



H H H ENTERPRISES 

BOX 493 
LAUREL, MD. 

20810 
301-953-1155 

"lourth" 

Available soon at $69.95 on SSB 5 & 8 
inch disk. This is a stack oriented language 
for the 6800 and has a dictionary of 200 plus 
words. Includes an instruction book of over 
50 pages. This is a systems type language, 
works in base 2 to 16 numbers. Supports 
disk files. Sample programs included. 



IPC PRODUCTS FOR 

6800 



COMPUTERS 
SWTPC "ml MSI 



j»*TC-3 CASSETTE INTERFACE - t«).9.W 

•r VST - IHIHI Itanrl Loads IK in H Si-cimuV 
♦KHI.I \ltl K • lOrmr Hal. lass tliiin I in Ml'- JO IKS. 
•ClhVKMKM - I'Iuk- MircclK lulu The 
Jrlothcrlmard. 

•I'll S - Head ami Write Kansas ( il\ Standard 
formal ul ilKI Itatlil. 

V / 



•CFM/3 SOFTWARE - 19.95 



•i:\SSKTTK <)|»KI< \ | l\(, S1VIKM for llw 'I'CJ 
cassrllr interface. 2K ini-iuiiry required. 

•III.K MANXGhK su|i|.i,r|s named fids, load . sax*'. 
run. find. list, imixc. tlir. . etc 



•I'ATlliKS for BASIC. VSSKMHI.KH ami KDIIOK 
support named files through (he filr manager. 

•OPTIONAL CFM/3 m cum**? - ».»;> additional. 



V 



<CK - 7 REAL TIME CLOCK - 49.95— 

•A TIM K t.'l. (M:K, not a linicr. kr«.|>« linn' 
continuously ^ilhnot scr\iciil£ In tin- computer. 
I'roiiuVs hours, minutes, siinnds. 



•IN THK Kl i'l'S can lie programmed In occur on the 
liiior. minute or M'c.nnil. 



•OI'TIOVAI. |iimit supply allons clock In run with 
cuiii|iulcr power turned jiff • l.')3. 



•comix; soon 



I • AIKI6 DATA A<:gi ISlTION liOAHl) | 

l() t Channels: I'royriltnmalllit Gain 1 

I Avuilahlr Alx.nl Kelt. 1. !"?<> 1 



" I >c signed By Prolcaiionali For OwtaUixUag Perlormaoce" 



'J PC product* 



P.O. BOX 5615 
ALBUQUERQUE, N.M. B71&5 

IKKMSl i:»h. Ml -r MSA 

41)1)11 00 I'lK kit 

Hit) SIIII'I'IAG 4 ii\miiim. 
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ADVANCED 6800 SOFTWARE 


CP/68™ OPERATING SYSTEM 


• PIP Peripheral Iniefchange ^ 9 ■ 95 ; 
Program Translers Dala 

Between Physical Devices 

• Wildcard Filenames and Extensions 

• Relocatable Anywhere in 
Memory 

• Extended Instruction Set 
Includes 6809-type Instructions 
(PSHX, PULX. etc) 


• Complete Device-Independent I/O 

• Random and Sequential Files 

• Fits in Less Than 8k 

• Chaining and Overlaying 

• Single Supervisor Call Furnishes 
All DOS Services 

• Easily Interlaced to New 
Devices and Peripherals 

• Dynamic File Allocation 


STRUclured BAsic Language (STRUBAL +™ ) COMPILER 
for both husiness and science uses 

($2^9-95) 


• Variable Precision From 4 to 
14 Digits 

• Structured Programming Forms 

• Produces Relocatable and 
Linkable Code 

• COMMON and DUMMY Sections 


• Extensibility 

• String Handling 

• Full Scientific Package 

• Dala Structures with 
Mixed Dala Types 


LNKEDT68™ LINKAGE EDITOR 


• Link and Relocate Files 
Produced by STRUBAL + or 
RA6800ML Macro Assembler 

• Two-Pass Disk-to-Disk 


($^9-95) 

XREF68™ 

($29-95) 


• Libraries of Relocatable 
Files Can be Searched 

• Extensive Listing Outputs 


• Produces a Cross-Reference 
Listing ol the XREF File 
Produced by STRUBAL + or 
RA6800M L Macro Assembler 


• Alphabetic Listing ol Every 
Symbol in a Source Program 
Followed by the Line Number 
ol Every Reference 


RA6800MLD™ MACRO LINKING ASSEMBLER 


• Full Macro Facilthes 

• COMMON Section for the 
Production ot ROMable Code 

• Conditional Assembly 


($79.95) 


• Generates Linkable and 
Relocatable Code 

• Sorted Symbol Table Listing 

• Hash-coded Symbol Table 
lor Speed 


• Change. Delete. Replace 
Text Globally 
1 • Powerlul Macro Facilities 


EDIT68™ TEXT EDITOR 

($39-95) 


• Disk-lo-disk Edii Accomodaies 
File of any Length 

• Find a Character or Character 
String 


• Supports Horizontal Tabs 




• Block Moves ol a Line or Lines 


Versions are available for 


Percom, ICOM. Smoke Si 


gnal and SWTPC systems. 


HEMENWAY ASSOCIATES, INC. 

101 Tremont Si. Suite 208 

Boston. MA 02108 

(617)126-1931 
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PRODUCT OESCfllPTION 



PRICE 



RANDOM ACCESS DISK FILE BASIC 

w/EDIT. lint input. & sort new features 

SUPER DISK FILE HANDLING BASIC 

w/EDIT. line input. & more new features 

SUPER CASSETTE FILE HANDLING BASIC 

PROM RESIDENT CASSETTE FILE BASIC 
(SUPER features) 

PILOT - OUR VERY OWN FOR THE 6800 
(with COMMENTED SOURCE LISTING) 
(also with SOURCE CODE ON DISK) 

DISK CHECK FILE HAINT. SYSTEM 

< (Complete checking system) 

DISK NATE AND ADDRESS SYSTEN 

< (Selective printing - labels) 

RANDOM HAILING SYSTEM VZ 

• (Commercial quality package) 

(Handles large data bases with ease) 



(SSB ONLY) 



89 95 



(FLEX ♦• ONLY) 49 95 



cassette 



cassette 
2716 



(SSB or FLEX) 



(SSB or FLEX) 



(SSB or FLEX) 



(SSB ONLY) 



DISK HmME INVENTORY SYSTEM (SSB ONLY) 

• (Random access files - online inquiry) 
(6 Reports either hardcopy or display) 

AMERICANA PLUS (14 NEHTECH Songs) 

(Di xi e. Noel. Eyes of Texas* & store) 

CSS FOUR PART el (8 Songs - O'Koly Night) cassette 

(Moonlight Sonata. Rhapsody in Blue. etc) (SSB or FLEX) 

CSS FOUR PART «2 (7 Songs - Autuan Leaves) cassette 

(Bumble Bee. Bach Prel udes, Romeo/ Jul let) (SSB or FLEX) 

CSS FOUR PART «3 (7 Songs - McArthur Park) (SSB or FLEX) 
(The Sting. Windsong, This Guy's in Love) 

BASIC PGMS Ml (Bluff. Chase. Animal. Hamurabi > 

• (Mastermind. 8iorylh». Horse race. etc. > (SSB or FLEX) 



cassette 
I SSB or Flex) 



BASIC PGMS «2 (Decision. Black Jack. Crash) 
• (Math Lesson. Lunar. Keno. Furs. Uumpus) 



(SSB or FLEX) 



BASIC PGHS «3 (Doall.Ma7e.Roadrace. Lifetime) 

• (Interest i< Income Cal c. Basebal 1 , etc > (SSB or FLEX) 



WHIZ (TM) 



High Speed Binary punch load cassette 



29. 95 

100. M 
230.00 

24. 95 
37 95 
49 95 

49. 95 



49 95 



89 95 



49 95 



15. 95 
19 95 



24 95 
24 95 



24 95 
24 95 



24 95 



19 95 



19. 95 
IS. 95 



• source listing inc. - •• FLEX is a Trademark of TSC 
— > CORPU TERWARE is a Registered Trademark of Computerware <- 



•••••• Cassette format AC-30 8" disk add »2 00 

•••••• ALL SSB Software Is available on 8" diskettes 



PRODUCT DESCRIPTION 



LEARN ASSEMBLER - PART I 

(5 Lessons - Requires 16K) 

LEARN BASIC PACKAGE (I II tt 111) 
(All 12 lessons - need 16K) 

RENBAS - RENUMBER BASIC Programs 
Same features as below 

RENBAS - RENUMBER BASIC Programs 
Selective starting number 
and increment value 

XREF - Assembly Program Label 

Cross-Reference - Complete 
Commented Source Listing 

SUBMIT - DOS Batch Processor 

Macro capabilities 
Dos Error Recovery 

BFD-68 DISK TRANSIENTS »l 

Includes Listp. I ni t. Men 
Lodhex. Savlod. Printp 
Cordmp. Disasm. Convrt. Epend 

BFD-68 DISK TRANSIENTS »2 

Includes Print. Dir. Pip 
Cksm. Search. Fill. Filcom 
Delete - Wild Card Options' 

BFD-68 DISK TRANSIENTS »3 

Includes Fduimp. Sdump. Map. 
Scout. Memdump. Compare. 
Hardcopy for other transients 

FLEX UTILITY CO mAK DS Ml 

Includes Examine. Findhexl.2. 3 
Dir. Kill. Files. Frags. Repeat 



DOODLEBUG - EXTENDED SMARTttJG MONITOR 
< (With SMARTBUG in £Pft*M ) 

SMART BOG 



EDITOR or ASSEMBLER 
EDITOR and ASSEMBLER 



SE-1 OR SA-1 
SE-1 t, SA-1 



TEXT PROCESSOR 

SSB BASIC AND RANDOM DOS 

TRACE - DISASSEMBLER TO-1 



cassette 
(SSB or FLEX) 

cassette 

(SSB or FLEX) 

cassette 
w/source list 

(SSB or FLEX) 
w/source 1 ill 
w/source disk 

(SSB or FLEX) 
w/source list 
w/source disk 

(SSB ONLY) 
w/source list 
w/source disk 

(SSB ONLY) 
w/source list 
w/source disk 



PRICE 



19. 95 
19 95 



39.95 
39 95 



24 95 



24 95 
34 ">S 



24. 95 

34 95 



24 95 
34.95 



24 95 
34 95 



(SSB ONLY) 
w/source list 24 95 
w/source disk 34 95 



(SSB ONLY) 

w/source list 24 95 

w/source disk 34.95 

(FLEX ONLY) 19 95 

w/source disk 24 95 



SOURCE GENERATOR 



SG-1 



COMPUTERWARE SOFTWARE SERVICES 

830 First Street Encinitas. California 92024 
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SUPER 
SOFTWARE! 

MICROWARE 6800 SOFTWARE JS_ 

INNOVATION AND PERFORMANCE 
N / 



rWEWl LISP Interpreter 



The programming language LISP offers exciting new possibilities lor 
microcomputer applications A highly miereclive interpreter that uses 
hat -type dale structures which are simultaneously dale end executable 
Instructions LISP teelures an unusual structured, recursive function, 
oriented syntax Widely used for processing, artificial Intelligence, 
education, simulation end computer-aided design 6800 LISP requires 
n minimum ot t?K RAM. 
Price $75.00 

A/BASIC Compiler 

The ever-growing A/BASfC family is threetenlng old-leshionad 
assembly language programming In e big wey This BASIC compiler 
generetei pure, lust, ettlciant 6800 machine lenguege from eesy to 
write BASIC source progrems Uses ultra-fast integer melh, extended 
string (unctions, booleen operators end reel-time operations Outputis 
HOMable end RUNS WITHOUT ANY RUN-TIME PACKAGE Disk ver- 
sions heve disk I/O stetements end require 1 2K memory end host DOS 
Cesselte version runs In 8K end requires RT/68 operetlng system 
Price- Olsk Extended Version 2 1 S 150.00 
Cessans Varslon 1 $85.00 



I NEW I A/BASIC Source Generator 

An 'add-on' option to* A/BASIC Compiler disk versions thet edds en 
extre third pass which generetes e full assembly-language output 
listing AND assembly lenguege source file Uses original BASIC nemes 
end inserts BASIC source lines es comments SSB end SWTPC 
Miniflex version evelleble 
Price 150 00 



fWEWI A/BASIC Interpreter 

Here It Is— e super-fest A/BASIC Interpreter the! Is source-compatible 
with our A/BASIC eompilert Now you can interactively edit, execute 
end debug A/BASIC progrems with the eese of en interpreter— then 
eompite to super efficient mechine lenguege Also e superb elend- 
elone applications end control-oriented Interpreter. Requires 8K RAM 
The cessette version is perfect tor Motorole D2 Kits 
Price: $75.00 

RT/66 Real Time Operating System 

MIKBUG— compatible ROM thet combines en improved monitor/ 
debugger with e powerful mullllesklng reel-time opsretlng system 
Supports up to 18 concurrent tasks el 8 priority levels plus reel time 
clock end Interrupt control Thousende In use since 1976 handling ell 
types ol eppilcellons Avelleble on 8830 (MIKBUQ-type) or 2708 
(EPROM-type) ROM Menuel Is a classic on 6800 reel-lime eppilcellons 
and contelns a full source progrem listing. 
Price: RT88MX (8830) $55.00 
RT88MXP (2708) $55 00 

6800 CHESS 

A chellenglng chess progrem tor Ihe 8800 Two selectable difficulty 
levels Displays formatted chess boerd on stenderd termlnefi Re- 
quires 8K memory Mechine lenguege with A/BASIC source listing 
Price: $50 00 

ELIZA 

6800 version of Ihe femeus MIT erllficlel Intelligence progrem The 
computer assumes the role of e psychoenelyst end you ere the patient 
This unusuel progrem IS unique because the dialog with the com- 
puter is In unstructured pleln English An impressive demonstrellon 
program 
price: $30 00 



Our sofl»ere is tveiKfe for moM popular MOO systems on cassette or dwene 
unlets otherwise noted CMS woods •■• ibu on SSB.. SWTPC or Metarou 
MOOS PleAsespeory wnich you reojinr* Pnone order* ere welcomed Weeecvpt 
MASTEnCHARQE and VISA We try to shl» orders within 2s noun ol receipt 
Pimm call or write if you require sedMionei iniormtiion or our free celatog 
Mlerowere sohwere it sveiiaote lor OEM and custom eppucetions 



MICKOWARE 

svstems txiimMtATioiN 



P.O. BOX 4885 

DES MOINES. IA 50304 

(515) 265-8121 



'68' MICRO JOURNAL 

ir The only ALL 6600 Computer Magazine. 
ir More 6800 material than all the others com- 
bined: 

MAGAZINE COMPARISON 

(2 years) 

Monthly Averages 

6800 Articles 



KB 

7.6 



TOTAL 
PAGES 



BYTE CC DOBB'S 

6.4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $5.88 

(Based on advertised 1-year subscription price) 

'68' cost per month: 880 

($10.50 Charter Subscription Rate) 

That's Right! Much, Much More 

for 

1/6 the Cost! 

CHARTER SUBSCRIPTION SPECIAL 

1-Year $10.50 2 Years $18.50 3 Years $26.50 

OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My: Master Charge Q — VISA □ 

Card # Exp. Date 

For □ 1-Year □ 2 Years □ 3 Years 

Enclosed: $ 



Name 



Street- 
City 



State 



-Zip- 



My Computer ls:. 



68 MICRO JOURNAL 
3018 Hamftl Road 
HIXSON, TN 37343 

Foreign surface add $9.50 per year. 
Foreign Air Mail add $29.00 per year. 




j^OJiSB®^ 




>s 
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GOOD DEAL EXTENDED! 
PRICES SHOWN ARE FOR ORDERS RECEIVED BY JUNE 30 

NORMAL PRICES APPROX. 10% HIGHER . . . CALL FOR DEALER, OEM, AND GROUP PRICING 




<i».tt 1 i l i tmi 

SH Ml HI HB 
t^H BHl IH3 I^K 
i i I I 

SSI 11 






■Ml 



SS-50 VIDEO RAM 

Fully Synchronous Operation to Eliminate Jitter 
Full 128 Set ol 7 by 9 Characters & Reverse Image 
IK of Memoiy can be Mapped in any IK Increment 
10 Pages ol Documentation Including Software 

ASSEMBLED $135.00 
CARD, CRYSTAL. & DOC $35.00 



SS-50 PARALLEL I/O 

• 2 Potls Expandable to 10 (Just Add PIAS @ S6 95 ea ) 

• Each Poil has 8 10 Plus 2 Control . . _ 100 10 Lines 

• Large Regulator Supplies Power to I/O Connectors 

• Board Can be Mapped to any 32 Word Boundary 

ASSEMBLED (W/1PIA) $89.00 
CARD ONLY $32.00 
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SS-50 SUPER CPU 

SS-50 Buss . . or . . Stand Alone Computer 

IK ol Ram at SA00O. I/O on Board at SA400 (Relocatable) 

2K Monitor in 2708 Eprom (Expandable lo 4K) 

2 Parallel 8 bil ports with 2 Control Bits and Power 

1 RS-232 ACIA Port (Expandable to 2nd TTL ACIA) 

3-16 Bit Counter Timers (Expandable to 6 . . . Add 2nd 

6840) 

Additional 128 Byte Ram at 0000 can be Jumpered out 

Battery Back-up Available on 32 Bytes of Ram 

Back/Back with other SS-50 Cards to Make Small Systems 

ASSEMBLED (AS SHOWN) $179.00 
CARD ONLY $44.00 



Gimix 16K Without Soft Addressing $298.13 

Gimix 16K Static Ram W/Softadd $368.16 

Our SS-50 Wire-Rap Card $24.00 

3, 4, and 7 slot SS-50 Backplanes 

We also Make Non SS-50 Single Board 6800 Sys. 



We have been in business for over 8 years, designing 
industrial machine tool controls and monitors . . . Call us 
for help with your product or laboratory instrumentation 
problem ... we are dealers for: 



GIMIX SWTPC SSB 

LET US QUOTE YOU A PACKAGE PRICE 

THOMAS 
INSTRUMENTATION 

2709 Dune Drive. Avalon, N.J. 08202 
Phone (609) 967-4280 
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Advanced Disk Operating and File Management System from PERCOM 



INDEX" 

(INterrupl Driven Executive) 
only $99.95 




A fast, adaptable disk operating program for 6800 computers featuring: 



Fast execution — I/O devices are serviced by interrupt re- 
quest. Eliminates polling time. 

Adaptability— I/O devices and peripherals are accessed the 
same as disk files. New devices may be added without chang- 
ing the operating system. 

Versatility — An unlimited number of DOS commands may be 
added. Over 60 system entiy points for program linkage 
provided. 



System savings — INDEX'" and user-added commands and 
routines are disk-resident. No need to add memoiy for pro- 
gram enhancement. 

Optional 108-page Advanced Programmer's Guide: I/O drivers 
& examples, describes system entiy points, etc $45 00 

Versions of INDEX'" are available for the PERCOM LFD-400"*, 
SWTP MF-68 and Smoke Signal Broadcasting Company's 
BFD-68 disk systems, and for Motorola's EXORciser'" develop- 
ment system. 



INDEX'" handles both ASCII and bi- 
nary files, and disk files are automati- 
cally created, allocated and de- 
allocated. 

Files are referenced by names — of up 
to eight characters — and file name 
parameters are addended for name ex- 
tension (to further define the file), drive 
number, directory ievel and a file pro- 
tection flag. 

The INDEX'" operating system 
software also features a versatile 
BACKUP routine for copying files onto 
a diskette. 



Console Interface Software 

The console interface segment of 
INDEX'" software supports any stan- 



dard serial ASCII terminal, and fea- 
tures: 

• Program Interrupt (vs. Reset) for 
runaway programs. 

• Operator Start, Stop and Skip dis- 
play control. 

• An interrupt-serviced, type-ahead 
character-queue buffer. 

• A secondary line editing queue 
buffer. 

INDEX™ Commands 

Commands are given to INDEX'" a 
line at a time. Processing begins when 
the Return key is struck. The type- 
ahead character-queue buffer allows 
the operator to input a command while 
the previous command is being exe- 
cuted. A character may be deleted and 
corrected with the Backspace (Control 
H) key. and a line may be cancelled 



with the Rub-Out key. In addition to 
the following commands, the user 
may add any number of his own 
commands. 

BACKUP ■ CONVERT • COPY • 
COUNT ■ DATE • DELETE • DIRectory 
• DISKEDIT • DISKINIT . EXAMINE • 
FILL • HELP • RENAME • SAVE ■ 
SETSTART • SETVERSION • SYS- 
DISK-TYPE -USERDISK 

System Requirements 
System requirements are as follows: 

1. 8K RAM at address SAOOO — 
SBFFF 

2. Minimum of 8K RAM beginning at 
address SOOOO 

3. ACIA console interface (SWTP 
MP-C interface) 

4. SWTBUG ,M or equivalent monitor 



■Mi a * nmn tt fwcow mi cotojth i fd «k> h i nwnan « *»w»i Dm Cumuli 
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PERCOM DATA COMPANY, INC. 

Dept 68 211 N Kirby Garland. IX 75042 

(214) 272-3421 



How to Get Your INDEX™ Software 

INDEX'" is supplied on two mini-diskettes together with a Users 
Manual for $99.95, and may be ordered from PERCOM by dialing, 
toll-free, 1-800-527-1592. In addition to checks and money orders, 
Visa and Master Charge credit cards are honored. Texas residents 
add 5% for sales tax. 

PerCom 'peripherals lor personal computing' 
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SMOKE SIGNAL BROADCASTING 
PRESENTS IT'S 

$299.00 

M-16A STATIC MEMORY SYSTEM 

• Allows SWTPC 6800 expansion to 48K 

• Low Power • Uses Single +8 Volt Supply 

• SWTPC 6800 Plug Compatible • STATIC - No refresh required 



The M-16A STATIC random access 
memory system, with a total storage capacity of 
16834 words of 8 bits each, 
is switch selectable to any 4K 
starting address, and a hardware 
write protect switch is also included. 
The system's storage elements are 
4K by 1 STATIC memory chips 
which store 4 times as much in 
t only 1 2% more space than the low 

power 2102's. Typical access time is fast enough to work a 
6800 based computer operating at 2 MHz and all systems 
are factory tested at 2 MHz. 
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31336 Via Colin*, Westlake Village. CA 91361, (213) 889-9340 



,SM0IE SIGRAL ||bB0ADCASTIIC 

31336 Vn Collnu. Wailluki Villl»t. CA 91361 
131318899340 

LJ Send information on your M-16A 
U Send name of nearest dealer 
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5-1/4" Minidisk — Soft or Hard Sector 
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SOGTH EAST MEDIA SUPPLY 

6131 Airways Blvd. 6 1 5-892- 1 328 

Chattanooga, TN 37421 




